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FOREWORD 


This  Is  one  of  three  technical  reports  being 
published  simultaneously.  The  others  are  the  MILITRAN 
Operations  Manual  for  IBM  7090-7094  (Technical  Documentary 
Report  No.  ESD-TDR-64-389)  and  the  MILITRAN  Reference 
Manual  (Technical  Documentary  Report  No.  ESD-TDR-64-390) . 

The  three  reports  constitute  a  complete  description  and 
Instructions  for  using  the  MILITRAN  language  in  computer 
programming  of  simulation  problems. 

The  MILITRAN  7090-7094  Processor,  which  is  U3ed 
to  compile  a  problem  written  in  MILITRAN  source  language 
into  a  machine  language  program,  will  be  available  to 
prospective  users.  Pending  final  arrangements,  requests 
for  information  about  the  MILITRAN  Processor  should  be 
sent  to  the  Office  of  Naval  Research  (Code  491). 

This  report  was  prepared  by  the  Systems  Research 
Group,  Inc.,  under  Contract  Nonr-2936(00) ,  which  was  initiated 
by  the  Naval  Analysis  Group,  Office  of  Naval  Research,  and 
has  been  Jointly  supported  by  the  Office  of  Naval  Research 
and  the  Electronic  Systems  Division,  Air  Force  Systems  Command. 


ABSTRACT 


MILITRAN  Is  an  algorithmic  computer  language 
specifically  oriented  to  the  problems  encountered  in 
simulation  programming.  In  addition  to  providing  over¬ 
all  flexibility  in  expressing  complex  procedures,  the 
language  contains  features  which  greatly  simplify  the 
maintainence  of  status  lists,  handling  of  numeric  and 
non-numeric  data,  and  sequencing  of  events  in  simulated 
time. 


This  report  is  an  introduction  to  the  MILITRAN 
language  for  prospective  users . 


REVIEW  AND  APPROVAL 

This  Technical  Documentary  Report  has  been 
reviewed  by  the  Electronic  Systems  Division,  U.  S.  Air 
Force  Systems  Command,  and  is  approved  for  general  distribu¬ 
tion. 
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CHAPTER  I 


INTRODUCTION 

MILITRAN  is  a  general  purpose,  problem-oriented 
language  developed  by  Systems  Research  Group,  Inc.  under 
the  sponsorship  of  the  Office  of  Naval  Research  and  the 
Air  Force  Systems  Command  (ESD).  It  enables  the  program¬ 
mer  to  think  in  terms  of  the  problem  to  be  solved  and 
the  method  of  solution,  rather  than  in  terms  of  the  com¬ 
puter  which  is  used  to  solve  the  problem.  It  Is  a  sym¬ 
bolic  language,  using  familiar  notations  from  algebra 
and  logic  which  are  expressed  by  self-explanatory  English 
words.  The  class  of  problems  towards  which  this  language 
is  oriented  is  that  encountered  in  military  simulations. 

The  primary  stimulus  for  MILITRAN  has  been  two¬ 
fold:  (l)  the  increasing  importance  of  the  simulation 

approach  in  the  analysis  of  military  systems,  and  (2) 
the  long  periods  of  time  and  high  levels  of  effort  re¬ 
quired  to  produce  an  operating  simulation  program. 

MILITRAN  achieves  Improved  coding  efficiency 
by  providing  a  programming  language  -  the  "MILITRAN  lan¬ 
guage"  -  which  is  oriented  to  the  special  problems  and 
procedures  of  military  simulation.  Because  of  this  spe- 
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cial  orientation,  simulation  codes  can  usually  be  written 
in  the  MILITRAN  language  more  easily,  more  quickly,  and 
with  less  likelihood  of  error  than  by  conventional  pro¬ 
gramming  techniques.  The  ultimate  communication  with 
the  computer  is  effected  through  the  MILITRAN  compiler, 
a  special  program  that  translates  source  codes  written 
In  the  MILITRAN  language  into  a  form  directly  understanda¬ 
ble  by  the  computer. 

The  MILITRAN  process  commences  once  the  model 
of  the  situation  has  been  developed  and  communicated  to 
the  MILITRAN  programmer.  The  programmer  then  writes  a 
source  code  for  the  simulation  in  the  MILITRAN  language. 
This  source  code  is  fed  into  a  computer  which  has  been 
loaded  with  the  MILITRAN  compiler  program.  The  process 
of  compilation  is  then  carried  out,  with  the  result  that 
the  computer  itself  generates  an  object  program  and  ac¬ 
cessory  documentation  for  the  particular  simulation. 

This  object  program  is  written  in  machine  assembly  lan¬ 
guage  and  constitutes  the  actual  code  for  the  simulation. 
Hence,  it  represents  an  Independent  entity  and  the  simu¬ 
lation  proper  may  then  be  executed  without  any  further 
reference  to  the  MILITRAN  System. 

The  MILITRAN  language  is  a  complete,  integrated 
programming  language  providing  a  full  repertoire  of  con- 
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trol,  logical,  arithmetic  and  I/O  instructions,  together 
with  a  range  of  special  features  oriented  towards  meeting 
the  internal  structural  demands  of  military  simulation 
programs.  These  special  features  consist  of  such  items 
as  object  modes,  list  processing  statements,  event  pro¬ 
cessing  procedures,  special  retrieval  arrays,  etc.  which 
have  been  designed  to  increase  the  power  of  the  language 
while  preserving  full  flexibility  to  cope  with  any  specific 
simulation  model. 

Most  programming  languages  are  designed  for  the 
development  of  programs  to  handle  various  types  of  compu¬ 
tational  problems.  Such  problems  have  numbers  or  variables 
taking  on  numerical  values  as  their  basic  elements.  The 
baslo  relations  between  these  elements  are  arithmetic  re¬ 
lations,  and  the  processing  is  largely  composed  of  arith¬ 
metic  operations.  A  military  simulation,  on  the  other 
hand,  has  as  its  basic  elements  the  particular  objects 
which  act  and  are  acted  upon  in  the  course  of  the  simu¬ 
lation.  The  relationships  and  interactions  among  these 
objects  form,  in  one  sense,  the  key  relations  dealt  with 
in  the  simulation.  The  fundamental  process  of  a  simu¬ 
lation  is  the  step  by  step  progress  through  simulated 
time  coupled  with  a  determination  of  the  events  that  have 
taken  place,  an  assessment  (often  stochastic)  of  the  im¬ 
pact  of  these  events  upon  the  participating  objects,  and 
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an  updating  procedure  to  insure  that  future  events  and 
occurrences  are  consistent  with  these  continual  changes 
in  the  state  of  the  simulated  system. 

The  MILITRAN  language  has  the  ability  to  deal 
directly  and  explicitly  with  these  underlying  features 
of  a  simulation  situation. 

To  provide  some  insight  as  to  how  this  is  a- 
chieved,  the  role  of  certain  MILITRAN  language  components 
will  be  described  briefly  in  this  chapter.  This  is  of 
course  in  the  way  of  a  preview,  and  a  complete  discussion 
of  each  component  is  deferred  until  the  appropriate  sub¬ 
sequent  chapter. 

The  basic  elements  in  a  simulation  program  are 
individual  objects  and  object  types.  To  create  such  en¬ 
tities,  MILITRAN  provides  the  system  mode  declaration 
OBJECT.  The  collection  of  all  individual  objects  so  de¬ 
clared  may  be  viewed  as  a  universe  of  “object  values" 
available  to  the  particular  source  program.  In  the  same 
manner  that  numerical  variables  are  needed  in  a  computa¬ 
tional  problem,  so  in  a  simulation  one  needs  variables 
which  can  take  on  individual  objects  as  values.  In 
MILITRAN  such  variables  are  declared  by  the  PROGRAM  OBJECT 
statement.  Multi-dimensional  program  object  arrays  are 
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declared  In  a  almllar  manner.  The  requirement  often 
exists  to  form  various  groupings  of  objects  for  purposes 
of  effecting  a  common  processing  or  data  assignment. 

In  MILITRAN,  this  requirement  Is  met  by  the  CLASS  decla¬ 
ration. 


Insofar  as  the  above  discussion  bears  on  dec¬ 
larations  employed  In  MILITRAN  for  the  creation  of  vari¬ 
ous  program  entitles.  It  should  be  pointed  out  that 
MILITRAN  also  provides  for  Introducing  the  entitles  re¬ 
quired  In  the  normal  computational  aspects  of  a  simula¬ 
tion  program.  Thus,  one  can  Introduce  constants,  varia¬ 
bles,  multi-dimensional  arrays,  multi-modal  vectors  and 
vector  arrays  which  can  take  on  either  real  (l.e.,  float- 
Ing  point).  Integer,  or  logical  (l.e..  Boolean)  as  well 
as  object  values.  To  make  the  process  of  mode  declaration 
as  painless  ar.d  reliable  as  possible,  a  "NORMAL  MODE" 
statement  Is  available.  This  statement  enables  the 
MILITRAN  programmer  to  establish  his  own  automatic  mode 
assignment  conventions  for  each  portion  of  the  source 
code. 


As  discussed  previously,  a  major  segment  of  any 
simulation  program  is  concerned  with  maintaining  an  up-to 
date  account  of  the  status  of  the  participating  objects 
and  their  interactions.  In  one  sense,  the  progress  of 


5 


the  simulation  may  be  viewed  as  essentially  equivalent 
to  the  dynamic  changes  in  object  and  system  status.  In 
virtually  all  simulations,  this  role  of  maintaining  sta¬ 
tus  accounts  is  accomplished  through  the  device  of  lists. 
Consequently,  it  is  exceedingly  helpful  to  have  facile 
procedures  for  constructing  lists,  inserting  entry  values, 
manipulating  these  list  entries,  and  retrieving  any  de¬ 
sired  item  of  information  from  a  list.  In  MILITRAN  this 
facility  is  provided  in  the  list  processing  portion  of 
the  language. 

List  entries  may  be  created  by  means  of  PLACE 
or  PLACE  ENTRY  statements;  modified  by  REPLACE  or  REPLACE 
ENTRY  statements;  and  located  by  the  system  functions 
MINIMUM  INDEX  and  RANDOM  INDEX.  Processing  which  would 
normally  require  complex  iterative  coding  can  be  achieved 
in  single  concise  MILITRAN  statements.  For  instance, 
the  REMOVE  and  REPLACE  statements  can  be  used  to  search 
and  process  entire  lists.  Updated  values  produced  through 
the  use  of  REPLACE  or  REPLACE  ENTRY  statements  may  be 
functions  of  the  values  being  replaced. 

It  should  be  noted  that  in  providing  a  list- 
processing  language  MILITRAN  does  not  prohibit  the  use 
of  normal  data  processing  statements  upon  list  elements. 
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In  connection  with  this  freedom,  a  RESET  LENGTH  state¬ 
ment  permits  the  programmer  to  override  automatic  up¬ 
dating  features  at  will. 

The  central  dynamic  feature  of  military  simu¬ 
lation  is  the  processing  of  simulated  events  occurring 
either  at  regular  intervals  or  at  critical  Juncture  points 
in  time.  A  simulated  event  is  characterized  by  its  time 
of  occurrence,  the  participating  objects,  more  detailed 
information  concerning  the  particular  circumstances  of 
the  event,  together  with  a  certain  procedure  for  evalu¬ 
ating  the  impact  of  the  event’s  occurrence  and  implement¬ 
ing  this  effect.  Thus,  a  simulated  potential  event  con¬ 
sists  of  characterizing  data  plus  an  associated  processing 
to  be  carried  out  when  the  event  takes  place.  In  MILITRAN, 
this  association  of  data  and  contingent  processing  is  ac¬ 
complished  (as  well  as  many  other  benefits)  with  the  CON¬ 
TINGENT  EVENT  and  PERMANENT  EVENT  statements.  The  CON¬ 
TINGENT  EVENT  statement  defines  an  event  type  and  associ¬ 
ates  with  it  a  list  whose  entries  have  an  Indicated  com¬ 
ponent  structure.  The  structure  of  event  lists  may  be 
freely  arranged.  Each  entry  in  such  a  list  corresponds 
to  a  potential  event  occurrence  and  the  first  component 
of  any  such  entry  plays  the  special  role  of  representing 
the  critical  time  at  which  this  potential  event  may  take 
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place.  In  addition  to  defining  this  list,  the  CONTINGENT 
EVENT  statement  delineates,  for  a  special  purpose,  that 
segment  of  program  steps  which  is  enclosed  by  the  CONTIN¬ 
GENT  EVENT  statement  and  the  first  END  statement  to  follow 
it.  This  program  segment  constitutes  the  processing  to 
be  carried  out  upon  the  "realization"  of  the  particular 
contingent  event. 

Each  entry  on  a  CONTINGENT  EVENT  list  repre¬ 
sents  a  potential  event.  The  general  nature  of  this  po¬ 
tential  event  corresponds  to  the  particular  CONTINGENT 
EVENT  with  which  it  is  associated,  while  its  detailed 
character  is  described  by  the  values  of  the  components 
of  the  list  entry.  In  military  simulations,  one  often 
encounters  events  characterized  by  time  of  occurrence, 
attacking  objeot,  target  object,  together  with  other  de¬ 
scriptive  information.  The  MILITRAN  language  takes  ad¬ 
vantage  of  this  common  form  by  providing  the  system  vari¬ 
ables  TIME,  ATTACKER,  TARGET,  and  INDEX,  When  a  particu¬ 
lar  event  is  "realized",  the  list  entry  associated  with 
that  event  automatically  has  the  values  of  its  first 
three  components  loaded  into  TIME,  ATTACKER,  TARGET,  re¬ 
spectively,  Similarly,  the  variable  INDEX  automatically 
takes  on  the  number  giving  the  position  of  the  "realizedM 
entry  in  its  list,  (These  conventions  exist  for  conven- 
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ience  and  need  to  be  used  only  as  long  as  they  are  con¬ 
venient  for  the  problem  at  hand.  They  are  In  no  way  re¬ 
strictive  and  the  MILITRAN  programmer.  If  he  so  wishes, 
can  Ignore  them  with  Impunity.) 

Having  established  the  correspondence  between 
potential  events  and  vector  entries  In  CONTINGENT  EVENT 
lists,  the  meaning  of  event  "realization"  can  now  be  de¬ 
scribed  more  precisely.  A  simulation  may  be  viewed  as 
the  state  of  a  system  progressing  through  time  In  a  pre¬ 
dictable  fashion  until  the  occurrence  of  a  critical  event. 
This  critical  event  affects  the  dynamic  state  of  the  sys¬ 
tem  and  so  determines  the  course  of  things  until  the  next 
critical  event  takes  place.  The  system  thus  proceeds  pre¬ 
dictably  In  the  Intervals  between  the  critical  events 
which  determine  the  conditions  of  the  systems  predictabi¬ 
lity,  In  particular,  it  Is  clear  that  the  occurrence  of 
one  potential  event  will  affect  the  set  of  future  poten¬ 
tial  events.  Thus,  the  simulation  can  be  carried  out  by 
finding  the  earliest  potential  event,  performing  the  ap¬ 
propriate  revision  of  the  dynamic  state  of  the  system  and 
the  set  of  future  potential  events,  then  finding  the  next 
earliest  potential  event,  again  performing  the  appropriate 
revision,  eto.  In  terms  of  the  simulation  program,  the 
set  of  future  potential  events  Is  comprised  of  all  entries 
on  CONTINGENT  EVENT  lists  whose  time  component  Is  greater 
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than  or  equal  to  the  simulated  current  time.  The  earli¬ 
est  future  potential  event  will  then  be  represented  by 
that  list  entry  In  this  set  which  has  the  smallest  time 
value.  This  event  Is  the  one  which  occurs  next,  l.e.. 

It  Is  actually  "realized”.  The  revision  of  the  system 
state  Induced  by  this  event  Is  then  accomplished  by  per¬ 
forming  the  processing  associated  with  that  particular 
CONTINGENT  EVENT.  Having  processed  this  revision,  the 
program  then  searches  the  revised  set  of  entries  on  all 
CONTINGENT  EVENT  lists,  finds  that  entry  having  the 
smallest  time  exceeding  current  time,  and  then  proceeds 
to  "realize"  that  list  entry  as  an  event.  In  this  man¬ 
ner,  the  simulation  program  determines  the  "course  of 
the  battle." 


There  Is  a  special  MILITRAN  Instruction  which 
triggers  this  procedure  -  NEXT  EVENT.  Whenever  this  com¬ 
mand  Is  encountered,  the  MILITRAN  program  will  find  the 
list  entry  to  be  realized,  and  will  transfer  control  to 
the  associated  CONTINGENT  EVENT  processing  to  effect  that 
realization. 

Although  much  of  the  processing  involved  In 
simulation  programs  appears  similar  to  that  used  In  strict¬ 
ly  computational  codes,  significant  differences  of  a  gen¬ 
eral  nature  occur.  These  differences  must  be  considered 
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in  designing  a  simulation  language,  and  have  been  an  in¬ 
tegral  factor  in  the  development  of  MILITRAN. 

Simulation  data  must  often  be  referred  to  sev¬ 
eral  arguments.  The  range  of  an  aircraft,  for  instance, 
is  a  function  of  aircraft  type,  cruising  altitude,  and 
cruising  speed  as  well  as  fuel  load.  To  accomodate  for 
the  handling  of  such  data,  MILITRAN  provides  for  retrieval 
from  arrays  and  vectors  having  any  desired  number  of 
arguments . 

Real-world  situations  involve  real-world  names, 
contractions  of  which  to  five  or  six  characters  are  often 
grotesque.  MILITRAN  permits  identifiers  of  up  to  sixty 
characters . 

The  association  of  data  with  various  objects  in 
a  simulation  imposes  a  vast  bookkeeping  task  upon  the  pro¬ 
grammer,  The  MILITRAN  processor  absorbs  this  effort  almost 
entirely  by  allowing  a  wide  range  of  object-mode  sub¬ 
scripting. 


The  iterative  processes  in  a  simulation  program 
often  involve  incrementation  and  termination  criteria 
which  cannot  be  expressed  in  the  usual  algorithmic  lan¬ 
guages,  The  MILITRAN  DO-loop  form  allows  modification  of 
termination  and  incrementation  criteria  and  even  the  index 
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itself  within  the  iteration.  Further,  exit  from  the  loop 


may  be  made  at  any  point  without  loss  of  current  values, 
and  indices  are  defined  even  after  normal  exits. 

Allocation  of  storage  at  running-time  permits 
the  use  of  a  given  program  to  evaluate  many  different 
cases  without  recompiling. 

The  processor  allows  the  use  of  mixed-mode  expres¬ 
sions  whenever  contextual  meaning  is  clear.  This  has  sev¬ 
eral  implications,  among  them  the  elimination  of  compila¬ 
tion  failures  due  to  omission  of  unnecessary  decimal  points. 

MILITRAN  ignores  blanks  (except  in  Hollerith 
fields)  and  permits  comments  at  any  point  in  a  statement. 
Although  the  language  cannot  force  the  programmer  to  docu¬ 
ment  his  program,  it  does  provide  facile  tools  for  self¬ 
documentation. 

From  this  brief  sampling  of  the  MILITRAN  language, 
it  is  hoped  that  one  can  glean  some  of  the  basic  ideas 
underlying  its  structure  as  well  as  some  of  the  techniques 
appropriate  to  its  intended  utilization.  The  remainder 
of  this  document  is  concerned  with  detailed  explanation 
and  illustration  of  the  MILITRAN  vocabulary,  syntax,  and 
grammar. 
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CHAPTER  II 


GENERAL  LANGUAGE  CHARACTERISTICS 


A  MILITRAN  source  program  la  a  series  of  MILITRAN 
statements  whioh  specify  a  sequenoe  of  operations  to  be 
performed  by  a  digital  oomputer.  Eaoh  MILITRAN  statement 
may  be  viewed  as  a  set  of  elements  arranged  in  a  prescribed 
order  whioh  specifies  one  or  more  of  the  following  charac¬ 
teristics  of  the  program: 

1.  STRUCTURE  of  the  program  or  its 
components; 

2.  PROCESSING  to  be  performed  within 
the  computer; 

3.  INPUT/OUTPUT,  or  exchange  of  data 
between  the  computer  and  its  ex¬ 
ternal  storage  devices; 

4.  CONTROL  of  the  sequence  in  which 
various  operations  are  to  be  per¬ 
formed  ;  and 

5.  COMPILER  instructions,  or  speci¬ 
fication  of  the  manner  in  which 
the  translation  from  MILITRAN  to 
machine  language  is  to  be  per¬ 
formed  . 
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The  elements  whioh  combine  to  form  MILITRAN  state¬ 
ments  are  names ,  constants,  punotuatlon  marks,  statement  type 
Identifiers,  operators,  and  mnemonio  delimiters.  These  ele¬ 
ments  are  In  turn  made  up  of  characters,  which  are  the  basic 
units  of  any  language. 

Characters 

The  MILITRAN  Basic  Language  Is  expressed  In  terms 
of  the  following  character  sets 

ABCDEPOHI JKLMN0PQRSTUVW 
XYZ  0123456789.0,=+-*/ 

The  character  "blank"  Is  normally  not  significant 
In  the  language.  Except  where  specifically  noted  In  this 
manual,  blanks  may  be  used  In  any  part  of  a  statement  with¬ 
out  any  effect  on  the  statement, 

"Alphabetic  characters"  Include  the  letters  A 
through  Z;  "numeric  characters"  Include  the  digits  0  through 
9; "alphameric  characters"  Include  both  alphabetic  and  numeric 
characters.  All  others  are  "special  characters." 

Punctuation  Marks 

The  only  punotuatlon  marks  used  In  MILITRAN  are 
the  following: 
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Period 


(  Open  Parentheses 
)  Close  Parentheses 
,  Comma 

...  Ellipsis  (Delimits  comments) 

Operators 

The  operators  used  in  MILITRAN  are  the  following 

■  Substitution 
+  Addition;  plus 
-  Subtraction;  minus 
*  Multiplication 
/  Division 
,P.  Exponentiation 
.E.  Comparison:  Equal  to 

.0.  Comparison:  Greater  than 

.L,  Comparison:  Less  than 

.NE.  Comparison:  Not  equal  to 

.QE.  Comparison:  Greater  than  or  equal  to 

.LE.  Comparison:  Less  than  or  equal  to 

.IS.  Object  identity 
.IN.  Object  inclusion 
,0R.  Logical  disjunction 
.N0T.  Logical  negation 
.AND.  Logical  conjunction 
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EQV.  Logical  equivalence 

EX0R.  Logloal  exclusive  disjunction 


Names 

A  name  Is  a  string  of  one  to  sixty  alphameric 
characters,  the  first  of  which  Is  alphabetic. 

Certain  names  have  a  pre-deflned  meaning  in 
MILITRAN  and  may  be  used  only  In  reference  to  that  meaning. 
These  names  are: 


ABS 

GST 

PRINTER 

ATAN 

INDEX 

RAND0M 

ATTACKER 

INTEOER 

RAND0M  INDEX 

CARDS 

LENGTH 

REAL 

C0S 

L0G 

SION 

EACH 

LST 

SIN 

END  C0MPILATI0N 

MAX 

SQRT 

EPSIL0N 

MIN 

TAN 

EXP 

MINIMUM  INDEX 

TARGET 

FALSE 

M0D 

TIME 

F0RMAT 

NEXT  EVENT 

TRUE 

The  words  BY, 

BY  ENTRY,  C0NTAINS, 

F0R,  FR0M,  IN 

T0,  and  UNTIL  are  used  within  certain  statements  to  define 
the  limits  of  various  parts  of  those  statements.  Used  In 
this  context,  these  words  are  not  names,  but  mnemonic 
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delimiters.  Use  of  these  alphameric  combinations  as  names 
is  permitted,  as  the  distinction  between  name  and  delimiter 
is  always  contextually  clear. 

All  names  used  in  a  MILITRAN  source  program  are 
either  explicitly  or  implicitly  assigned  a  type.  Some  types 
of  names  are  assigned  a  mode.  The  type  of  a  name  indicates 
the  nature  of  its  use  in  the  program.  Ihe  mode  of  a  nane 
indicates  the  form  of  data  referred  to  by  the  name. 

Statement  Types 

Ihe  basio  statement  in  MILITRAN  involves  substi¬ 
tution  of  one  data  item  for  another  within  the  computer. 

The  substitution  statement  has  the  form 

a  **  b 

where  "a"  is  a  subscripted  or  unsubscripted  variable  name  and 
"b"  is  any  expression  whose  value  is  suitable  for  storage  in 


All  statements  which  are  not  substitution  state¬ 
ments  are  designated  by  system  words  and/or  symbols  called 
statement  type  identifiers.  Ihe  following  table  lists  all 
statement  types  and  their  primary  uses.  The  form  and  charac¬ 
teristics  of  each  statement  is  described  in  later  sections. 
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Statement  Type 

Primary  Function 

BACKSPACE 

INPUT/OUTPUT 

BACKSPACE  PILE 

INPUT/OUTPUT 

BINARY  READ 

INPUT/OUTPUT 

BINARY  WRITE 

INPUT/OUTPUT 

CLASS 

STRUCTURE 

C0'MM0'N 

STRUCTURE 

CONTINGENT  EVENT 

STRUCTURE 

CONTINUE 

CONTROL 

DO 

CONTROL 

END 

CONTROL 

END  COMPILATION 

COMPILER 

END  CONTINGENT  EVENTS 

CONTROL 

END  FILE 

INPUT/OUTPUT 

END  PILE  RETURN 

CONTROL 

END  RECORD  RETURN 

CONTROL 

EXECUTE 

CONTROL 

pOrmat 

INPUT/OUTPUT 

gO  tO 

CONTROL 

IP 

CONTROL 

INTEGER 

STRUCTURE 

LIST 

STRUCTURE 

LOGICAL 

STRUCTURE 

NEXT  EVENT 

CONTROL 

NEXT  EVENT  EXCEPT 

CONTROL 
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Statement  Type 

Primary  Function 

N0&MAL  M0t>E 

STRUCTURE 

0BJECT 

STRUCTURE 

PAUSE 

CONTROL 

PERMANENT  EVENT 

STRUCTURE 

PLACE 

PROCESSING 

PLACE  ENTRY 

PROCESSING 

PROCEDURE 

STRUCTURE 

PROGRAM  0BJECT 

STRUCTURE 

READ 

INPUT/OUTPUT 

READWRITE 

INPUT/OUTPUT 

REAL 

STRUCTURE 

REMOVE 

PROCESSING 

REMOVE  ENTRY 

PROCESSING 

REPLACE 

PROCESSING 

REPLACE  ENTRY 

PROCESSING 

RESET  LENGTH 

PROCESSING 

RETURN 

CONTROL 

REWIND 

INPUT/OUTPUT 

ST0P 

CONTROL 

SUSPEND  PAP  LISTING 

COMPILER 

UNLESS 

CONTROL 

UNLOAD 

INPUT/OUTPUT 

VECTOR 

STRUCTURE 

WRITE 

INPUT/OUTPUT 
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The  standard  MILITRAN  ooding  sheet  Is  shown  below 


MILITRAN  statements  are  written  one  to  a  line  In 
columns  13-72.  If  a  statement  Is  too  long  for  a  line.  It 
may  be  oontlnued  on  one  or  more  successive  lines  by  placing 
a  numeric  character  In  column  12.  For  the  Initial  line  of 
a  statement,  column  12  must  be  blank. 

Statement  labels  may  be  written  In  columns  1 
through  11.  A  label  Is  a  group  of  alphameric  characters, 
not  exceeding  11  In  number,  the  first  of  which  Is  alphabetic. 
These  labels  permit  the  programmer  to  refer  to  statements 
within  the  program.  For  example,  the  statement  00  TO  AB  12 
would  result  In  a  transfer  of  control  to  the  MILITRAN  state¬ 
ment  AB  12. 
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Comments  to  explain  the  program  may  be  included 
in  a  MILITRAN  source  program.  These  comments  are  not  proc¬ 
essed  by  MILITRAN  but  are  printed  on  the  listings  produced 
when  the  source  program  is  translated  intp  the  object  pro¬ 
gram. 

Comments  may  be  stated  in  either  of  the  following 

two  ways. 

1,  If  it  is  desired  to  insert  a  complete  separate 
line  of  comments,  any  non-blank,  non-numeric  character 
should  be  written  in  the  continuation  column  (column  12). 

2.  If  it  is  desired  to  intersperse  comments  with¬ 
in  a  line  of  coding,  the  comments  must  be  enclosed  in  two 
groups  of  3  periods  as  in: 

...THESE  ARE  COMMENTS... 

If  a  oomment  occurs  at  the  end  of  a  statement,  the  terminat¬ 
ing  periods  may  be  omitted. 

NOTE:  1.  Comments  cannot  appear  in  a  FORMAT  statement. 

2.  Care  must  be  exercised  to  insure  the  inclusion 
of  the  correct  number  of  periods  when  a  comment 
either  directly  precedes  or  follows  an  arithme¬ 
tic,  relational,  or  logical  operator  which 
itself  has  periods  as  part  of  its  notation. 
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Columns  73-80  may  be  used  for  any  desired  Identi¬ 
fying  Information.  Information  contained  in  these  columns 


is  not  utilized  by  the  MILITRAN  processor  except  as  identification 

No  MILITRAN  statement  may  occupy  more  than  ten 
cards,  exclusive  of  cards  designated  as  comments  by  column 
12. 

Some  examples  of  MILITRAN  statements  and  their 
effects  are: 


C  =  A  *  B 

The  asterisk  indicates  multipli¬ 
cation.  Thus,  the  statement 

means  multiply  A  by  B  and  set  C 

equal  to  the  result. 

D  =  C/A 

The  slash  indicates  division. 

This  causes  the  computer  to  di¬ 
vide  the  value  of  C  by  A.  Using 

the  value  of  C  obtained  from  the 

previous  example  D  =  B. 
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CHAPTER  III 


BASIC  M3LITRAN  ENVIRONMENT 

The  environment  of  a  MILITRAN  program  is  made 
up  of  those  elements  of  information  that  will  be  manipulated 
by  the  program.  These  elements  are  classified  as  either 
numeric  or  non-numeric,  MILITRAN  provides  several  modes 
of  expression  for  these  elements  in  order  to  facilitate 
the  creation  and  processing  of  various  types  of  data. 

This  chapter  will  discuss  the  necessary  conventions  a  pro¬ 
grammer  must  follow  in  order  to  establish  a  program  en¬ 
vironment,  The  first  section  of  the  chapter  will  focus  on 
elements  which  are  purely  numeric  in  form  while  the  second 
section  will  deal  with  non-numeric  elements  and  show  how 
they  may  be  used  when  appropriate  in  conjunction  with 
numeric  elements. 

As  data  elements  may  be  arranged  in  several  ways 
for  the  convenience  of  the  programmer,  the  concepts  of 
constants,  variables,  arrays,  vectors  and  lists  will  be 
introduced  as  the  discussion  progresses.  These  terms 
specify  the  manner  in  which  data  elements  are  organized  in 
the  computer  and  apply  to  both  numeric  and  non-numeric 
elements . 
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1,  Numerlo  Elements 


It  la  possible  to  write  two  types  of  numbers  in 


the  MILITRAN  language:  integer  (or  fixed  point)  numbers 
and  real  (or  floating  point)  numbers.  An  Integer  number 
is  an  ordinary  whole  number.  A  real  number  is  a  fraction 
between  0.1  and  1.0  multiplied  by  a  power  of  10. 

Integer  Calculations 

Calculations  with  Integer  numbers  are  carried 
out  with  whole  numbers  only;  no  decimal  remainders  are 
retained  or  used  in  computations.  For  example: 

Arithmetic  Statement  Result  of  Calculation 


I  =  5/2 


I  *»  2  (instead  of  2.5, 


since  the  .5  is 
truncated ) 


I  -  5/2  +  7/2 


I  ®  5  (intermediate 


truncation  causes 
this  to  be  computed 
2+3  rather  than 


12/2.  ) 


J  -  5*2 


Jo  10 


K  -  -  4  +  1 


K  -  -3 
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Real  Calculations 


Real  calculations  are  carried  out  between  two 
decimal  numbers  to  an  accuracy  of  8  decimal  digits.  For 
example : 


Arithmetic  Statement 

Result  of 

Calculation 

I  -  5./2. 

I  =  2.5 

(2.5000000) 

I  “  5./2.  +  7./2. 

1  =  6. 

J  «  1.6  *  .7 

J  =  1.12 

K  »  -2.7  +  1.2 

D  =  -1.5 

Arithmetic  Constants 

A  constant  is  an  element  of  information  whose 
predetermined  value  remains  fixed  from  one  execution  of 
the  program  to  the  next.  Any  quantity  which  appears  in 
a  MILITRAN  statement  in  the  form  of  a  number  is  called 
an  arithmetic  constant.  Arithmetic  constants  may  be  ex¬ 
pressed  in  either  integer  mode  or  real  mode. 


Any  number  written  without  a  decimal  point, 
using  the  decimal  digits  0  through  9  is  an  Integer  con¬ 
stant.  It  may  consist  of  from  1  to  11  digits  but  its 


25 


magnitude  must  not  exceed  2^-1.  A  preceding  +  or  -  sign 
is  optional  and  an  unsigned  integer  constant  is  assumed  to 
be  positive. 

Examples : 

The  following  are  valid  Integer  constants: 

0 

+9 

186 

-327 

On  the  other  hand,  the  following  are  invalid 
Integer  constants: 

-3*2  (contains  a  decimal  point) 

27,  (contains  a  decimal  point) 

3^359738368  (exceeds  the  magnitude  permitted) 
9*738*368  (commas  not  permitted) 


Any  number  written  with  a  decimal  point,  using 
the  decimal  digits  0  through  9#  is  a  real  constant.  It  may 
consist  of  from  1  to  9  significant  digits.  A  preceding  + 
or  -  sign  is  optional  and  an  unsigned  real  constant  is  as¬ 
sumed  to  be  positive. 


26 


An  integer  exponent  preceded  by  an  E  may  follow 
a  real  or  Integer  constant.  All  constants  with  such  an 
exponent  are  considered  real.  The  decimal  exponent  may 
have  a  preceding  +  or  -  sign.  An  unsigned  exponent  Is 
assumed  to  be  positive.  The  field  following  the  letter 
E  must  not  be  blank;  It  may  be  zero. 

The  magnitude  of  a  real  constant  must  be  between 

38 

10  and  10”^°  or  be  zero. 

Examples : 

The  following  are  valid  real  constants  and  are 
exactly  equivalent. 

10300. 

103E2 
103E+02 
IO.3E3 
+.103E05 
1030000. E-2 

The  following  are  not  valid  real  constants: 

IO3OOE  (field  following  E  is  blank) 
10300  (decimal  point  omitted) 

103E+2.0  (exponent  is  not  an  integer 
constant) 
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Arithmetic  Variables 


A  variable  Is  a  symbolic  representation  of  an 
element  of  Information  that  may  assume  more  than  one  value  - 
either  each  time  the  program  Is  executed  or  at  different 
stages  within  the  program.  As  with  constants,  an  arithmetic 
variable  may  be  real  or  Integer,  depending  on  whether  the 
value  It  will  assume  Is  to  be  real  or  Integer. 

Since  each  variable  Is  associated  with  a  name,  a 
discussion  of  the  rules  for  naming  variables  Is  appropriate 
at  this  point.  A  variable  name  consists  of  from  1  to  60 
nonblank  alphameric  characters,  except  the  special  characters, 
+  -  .)(  *,/-,  the  first  of  which  must  be  alphabetic.  The 
rules  for  naming  variables  allow  for  extensive  selectivity. 

In  general  It  Is  easier  to  follow  the  flow  of  a  program  If 
meaningful  symbols  are  used  wherever  possible.  For  example, 
to  compute  distance  It  would  be  possible  to  use  the  statement 

X  o  Y  *  Z 

but  It  would  be  more  meaningful  to  write 

DIST  =  RATE  *  TIME 


Examples : 

The  following  are  valid  variable  names: 


* 
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MAXIMUM 


ALPHA 

PLANE 

JET 

A601 

Z 

The  following  are  not  valid  variable  names: 

6ABC  (first  character  is  not  alphabetic) 
.BOMB  (period  not  permitted  -  it  is  a 
special  character) 


An  integer  variable  may  assume  any  value  expres¬ 
sible  as  an  integer  constant  in  the  MILITRAN  processor.  An 
integer  variable  is  declared  as  follows: 

INTEGER  SPEED 

where  SPEED  may  assume  the  value  of  an  integer  constant 
such  as  1  or  20  at  one  point  in  the  program  execution  and 
622  at  another  point. 

A  real  variable  may  assume  any  value  expressible  as 
a  real  constant  in  the  MILITRAN  processor,  A  real  variable 
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la  deolared  aa  followa: 


REAL  SPEED 

where  SPEED  may  aaaurae  the  value  of  a  real  conatant  such  as 
1.2  at  one  point  In  the  program  execution  and  622.0  at 
another  point. 

NOTE:  Both  Integer  and  real  variables  may  also  be  declared 
by  means  of  the  NORMAL  MODE  statement.  See  section  on 
NORMAL  MODE  Declaration  for  description. 

Arithmetic  Arrays 

To  this  point,  we  have  discussed  single  elements 
of  Information;  however.  It  Is  often  advantageous  to  be  able 
to  group  elements  to  refer  to  the  group  by  one  name  and  to 
refer  to  each  Individual  quantity  In  the  group  In  term  of 
Its  place  In  the  group.  A  group  of  elements  of  Information 
Is  known  as  a  table  or  an  array  and  each  element  Is  dis¬ 
tinguished  from  one  another  by  subscription. 

For  example,  assume  the  following  is  an  array 
named  TYPE: 

21 

37 

43 

51 
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Suppose  It  Is  desired  to  refer  to  the  second 
quantity  In  the  group;  In  ordinary  mathematical  notation 
this  would  be  TYPE2.  In  MILITRAN  this  would  be  : 

TYPE(2) 

The  quantity  "2"  Is  called  a  subBoript.  Thus; 

TYPE (2)  has  the  value  37 
TYPE ( 3 )  has  the  value  43 

Similarly,  ordinary  mathematical  notation  might 
use  TYPE  to  represent  any  element  of  the  set  TYPE.  In 
MILITRAN,  this  might  be  written  as  TYPE(l)  where  I  equals 
1,2,3,  or  4. 

The  array  could  be  two  dimensional;  for  example, 
the  array  QUAN: 


Column  1 

Column  2 

Column  3 

Row 

1 

16 

6 

34 

Row 

2 

22 

15 

46 

Row 

3 

13 

27 

51 

Row 

4 

64 

96 

88 

Suppose  It 

Is  desired  to  refer  to 

the  number  in 

Row 

2, 

oolumn  3i  this 

would  bet 

QUAN(2,3) 
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"2"  and  ”3”  are  subscripts.  Thus  : 

QUAN(4,2)  has  the  value  96 

Similarly,  ordinary  mathematical  notations  might 
use  QUAN^  j  to  represent  any  element  of  the  set  QUAN.  In 
MILITRAN  this  might  be  written  as  QUAN(I,J)  where  I  equals 
1,2,3,  or  4  and  J  equals  1,2,  or  3. 


MILITRAN  allows  a  great  deal  of  latitude  In  the 
designation  of  arithmetic  subscripts.  The  only  form  a 
subscript  may  not  have  Is  that  of  a  logical  variable  or 
logical  constant.  (See  section  on  Logical  Elements  . ) 

Some  examples  of  subscripts  are: 

DIST 
21 
2.4 
TIME 
A  +  B 
A/B 
C*D 

The  names  shown  above  may  be  real  or  Integer  variables  and 
variables  In  a  subscript  may  themselves  be  subscripted. 
However,  If  a  subscript  of  real  mode  Is  used  It  will  be 
truncated  to  an  Integer  value. 
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An  arithmetic  subscripted  variable  is  an  integer 
or  real  variable,  followed  by  parentheses  which  enclose  the 
subscripts.  These  subscripts  are  separated  from  each  other 
by  commas  and  a  comma  is  not  allowed  after  the  last  sub¬ 
script.  Arithmetic  subscripted  variables  may  have  any  num¬ 
ber  of  subscripts. 

Examples : 

FIELD(2) 

DAMAGE  ACTION (5,  SHIPTYPE) 

MAX(J,K,L) 

RANGE (TYPE,FUEL, ALT, SPEED, PAYLOAD) 


The  arithmetic  array  declaration  statement  de¬ 
clares  both  the  mode  and  dimensions  of  the  array.  This 
statement  does  not  generate  any  instructions  in  the  object 
program;  rather,  it  provides  the  MILITRAN  processor  with 
the  information  neoessary  to  reserve  locations  in  the  com¬ 
puter  memory  for  storage  of  the  various  elements  of  the 
array  and  also  indicates  if  these  elements  will  be  REAL  or 
INTEGER  variables. 

The  following  statements  declare  both  the  mode 
and  dimensions  of  arrays: 
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REAL  n 


INTEGER  n 


. 13) 


dimensions  whose  value  is  not  less  than  1,  There  is  no 
limit  to  the  number  of  dimensions  permitted  in  an  array. 

A  single  array  declaration  statement  may  specify 
any  number  of  arrays j  but  if  more  than  one  array  is  named, 
the  name  of  each  subsequent  array  must  be  preceded  by  a 
comma.  Since  the  array  declaration  statement  lists  the 
maximum  dimensions  of  arrays,  references  to  these  arrays 
at  running  time  must  never  exceed  the  specified  dimensions. 


When  dimensions  are  the  names  of  arithmetic  vari¬ 


ables,  the  MILITRAN  compiler  will  provide  instructions  for 
entering  the  numeric  values  of  the  dimensions  at  the  time 
of  initial  loading  of  the  program.  In  this  way,  a  program 
may  perform  calculations  on  arrays  whose  size  is  not  deter¬ 
mined  until  the  program  is  executed.  Although  these 
"symbolic  dimensions"  may  be  changed  during  the  running 
of  the  program,  storage  allotment  will  be  determined  by 
the  values  originally  loaded. 

NOTE: 


1.  Symbolic  dimensions  may  not  be  subscripted 
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2,  If  "symbolie  dimensions"  are  used  in  proce¬ 
dures,  they  must  be  assigned  to  the  COMMON 
area,  (See  seotion  on  COMMON  Statement  , ) 

3.  Symbolic  dimensions  may  be  declared  only  in 
the  array  declaration  statement.  They  must 
not  be  deolared  as  variables  in  REAL  or 
INTEOER  declarations, 

MILITRAN  arrays  are  stored  sequentially  in  decreas¬ 
ing  memory  addresses,  the  first  subscript  varying  the  most 
rapidly. 

Examples: 

REAL  FIELD(4,4,5) 

This  example  is  a  three  dimensional  array  named 
FIELD,  for  which  the  subscripts  never  exceed  4,4,  and  5  and 
for  which  8°  storage  locations  will  be  reserved. 

INTEOER  SPEED (PLANE,  ALT,  WEIGHT,  DAMAGE) 

The  above  is  a  four  dimensional  array  named  SPEED. 
The  size  of  the  array  will  be  determined  at  program  execution 
time  when  the  values  for  the  symbolic  dimensions  -  PLANE,  ALT, 
WEIGHT,  DAMAGE  -  are  entered. 
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2.  Non-numerio  Elements 

This  seetlon  will  disouss  the  non-numeric  elements 
whleh  may  also  be  part  of  the  environment  of  a  MILITRAN  pro¬ 
gram. 

Hollerith  Constants 

As  defined  previous ly,  a  constant  Is  an  element 
of  Information  which  does  not  change  from  one  execution  of 
the  program  to  the  next.  The  Hollerith  constant  provides 
a  means  of  representing  alphameric  Information  In  the  form 
of  a  constant.  It  Is  written  using  the  form  "nH”,  where  n 
Is  an  unsigned  decimal  Integer  whose  value  Is  less  than  7» 
followed  by  n  Hollerith  characters.  The  Hollerith  charac¬ 
ters  are: 


A  through  Z  space 

0  through  9  $ 

+  * 

» 

/ 

) 

( 


Any  characters  permitted  by  the  computer  configuration  may 
be  used,  even  though  not  part  of  the  character  set  required 
by  MILITRAN. 
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Examples : 


The  following  are  valid  Hollerith  constants: 

4HTIME 
6HL  -  2. 

Note  that  blanks  are  considered  alphameric  char¬ 
acters  and  must  be  Included  as  part  of  the  count. 

The  following  are  Invalid  Hollerith  constants: 

11H  SIMULATION  (exceeds  the  number  of 

permissible  characters) 

4H  SHIP  (number  of  characters  specified 
by  the  Integer  does  not  corre¬ 
spond  to  the  number  of  charac¬ 
ters  In  the  constant) 

-5H  TIME  (sign  Is  not  permitted) 


Logical  Elements 

Logical  constants ,  logical  variables  and  logical 
arrays  are  elements  which  have  or  will  assume  a  value  of 
TRUE  or  FALSE. 


A  value  which  appears  In  a  MILITRAN  statement  In 
the  form  of  TRUE  or  FALSE  Is  called  a  logical  constant. 
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A  logical  variable  la  specified  by  the  declaration 
LOGICAL  which  precedes  the  variable  name.  For  example, 

LOOICAL  LIVE 

declares  LIVE  to  be  a  logical  variable  but  it  does  not  assume 
a  value  until  it  is  assigned  the  value  TRUE  or  FALSE  as  in: 

LIVE  -  TRUE 
or 

LIVE  -  FALSE 

NOTE:  As  mentioned  above,  logical  constants  and  logical 
variables  may  not  be  used  as  subscripts. 

Logical  elements  may  also  be  grouped  to  form  an 
array.  The  array  declaration  statement 

LOOICAL  n1(i1,i2,...,ik),...,nm(l1,l2,...,lJ) 

declares  n^,n2,...,nm  to  be  names  of  arrays,  whose  elements 
will  assume  a  logical  value,  and  l^,i2,...,lj  are  arithmetic 
dimensions  whose  value  is  not  less  than  1.  For  example: 

LOOICAL  CHARACTERISTICS (4, 3) 
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defines  a  two-dimensional  logical  array  called  CHARAC¬ 
TERISTICS.  The  elements  in  this  array  may  assume  a  value 
of  TRUE  or  FALSE. 


Object  Elements 

The  basic  elements  in  a  simulation 
individual  objects,  object  types,  and  object 
MILITRAN  provides  a  means  of  specifying  this 
numeric  data  by  the  use  of  symbolic  names. 
PROGRAM  OEJECT,  OBJECT,  and  CLASS  enable  the 
to  handle  these  non-numeric  elements  either 
elements  or  as  arrays. 


program  are 
c  lasses . 
type  of  non- 
The  declarations 
programmer 
as  single 


The  rules  governing  the  naming  of  these  object 
identifiers  are  simi  lar  to  those  enumerated  above  for 
arithmetic  elements.  A  name  may  consist  of  from  1  to  60 
alphameric  characters  (except  special  characters),  the  first 
of  which  must  be  alphabetic.  The  name  is  preceded  by  a 
declaration  of  OBJECT,  PROGRAM  OBJECT,  or  CLASS.  As  with 
arithmetic  variables,  the  following  discussion  will  assume 
that  object  elements  may  only  have  arithmetic  subscripts. 
However,  we  will  subseauently  show  how  individual  objects 
themselves  may  be  used  to  subscript  REAL,  INTEGER,  LOGICAL, 
and  PROGRAM  OBJECT  elements. 
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OBJECT  Is  a  declaration  used  to  define  names 
as  those  of  objects.  The  general  form  of  this  declaration 
1st 

OBJECT  n1(l1),n2(l2),,..,nm(lm) 

where  n^,n2,...,nm  are  names  and  1i*12,,*,,1m  muSt  be 
arithmetic  expressions  whose  value  Is  not  less  than  1, 

Each  name  must  have  a  dimension  because  the  dimension 
specifies- the  cardinality  of  the  object  element,  i.e., 
how  many  objects  are  In  the  group.  If  the  dimensions 
are  symbolic,  the  values  would  be  supplied  at  load  time. 

Examples : 

OBJECT  PLANE  (10) 

This  declaration  generates  one  element  named 
PLANE  and  also  specifies  that  PLANE  Is  a  set  or  group  of 
10  planes.  The  programmer  could  subsequently  refer  to 
any  member  of  the  group  of  10  planes  -  l.e.  PLANE(3) 
PLANE(6)  eto.,  because  use  of  the  declaration  OBJECT 
Indicates  to  the  MILITRAN  processor  that  PLANE(3)  and 
PLANE(6)  are  members  of  the  group  named  PLANE.  The  sub¬ 
scripted  name  PLANE(5)  Is  an  Identifier  which  specifies 
the  fifth  PLANE,  A  reference  to  any  member  of  the  group 
named  PLANE  causes  the  processor  to  produce  the  coding 
required  to  generate  and  save  the  name  of  the  particular 


member  of  the  set. 


OBJECT  CARBINE (400),  RIFLE (600) 

In  this  example,  the  OBJECT  declaration  generates 
two  elements  -  the  first  is  named  CARBINE  and  has  a  cardi¬ 
nality  of  400,  the  second  is  named  RIFLE  and  has  a  cardi¬ 
nality  of  600.  As  we  can  see,  the  declaration  OBJECT  is 
especially  useful  because  it  enables  the  programmer  to  spe¬ 
cify  a  group  of  objects  without  reserving  a  location  In  the 
computer  memory  for  each  object  within  the  group.  In  other 
words,  the  above  example  specifies  a  total  of  1000  objects  - 
yet  these  objects  occupy  only  a  few  words  of  computer  memory. 

OBJECT  PLANE (NUMBER) 

This  is  an  OBJECT  declaration  which  has  a  symbolic 
dimension.  Therefore,  the  processor  would  provide  the 
neoessary  instructions  to  load  the  value  of  NUMBER  which 
indicates  the  cardinality  of  the  object  PLANE  at  program 
execution  time. 


PROGRAM  OBJECT  is  a  declaration  which  may  be  used 
to  speoify  a  single  variable  or  group  of  variables  which 
will  assume  the  value  of  names.  It  is  declared  as  follows: 
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PROORAM  OBJECT  n 


1 9  °2 *  n3 

where  n^n^n^  are  names.  It  also  may  be  used  to  declare 
the  mode  and  dimensions  of  an  array  or  group  of  arrays 
whloh  will  assume  name  values  If  the  declaration  Is  stated 
as  follows: 


PROORAM  OBJECT  n^l^lg, . .  ,,lk) , . . .  ,nm(l 

► 

where  n^ng#****:^  are  names  and  l^ig*  ••  *»ik 
expressions . 


lgj IMI 1^ ) 

are  arithmetic 


Examples : 


PROGRAM  OBJECT  COMBAT  WEAPON 

This  example  specifies  one  variable  which  may  assume  the 
value  of  any  object  Identifier  In  the  object  program. 

The  statement 

COMBAT  WEAPON  =  PLANE(5) 

would  assign  to  COMBAT  WEAPON  the  value  of  the  Identifier 
PLANE(5). 

PROGRAM  OBJECT  TANK ( 10 ) 

This  declaration  means  that  TANK  Is  a  one  dimensional  array 
for  which  the  value  of  the  subscript  never  exceeds  10.  This 
declaration  therefore  causes  10  storage  locations  to  be  re¬ 
served  for  the  elements  of  the  array  named  TANK.  These 
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elements  will  be  object  Identifiers 


PROGRAM  OBJECT  OFFENSIVE  WEAPON (5, 4), DEFENSIVE  WEAPON (6, 5, 4 ) 

TVo  arrays  are  declared  above j  the  first  Is  a  two  dimensional 
array  named  OFFENSIVE  WEAPON  for  which  the  subscripts  never 
exceed  5  and  4  and  for  which  20  storage  locations  will  be 
reserved,  the  second  is  a  three  dimensional  array  called 
DEFENSIVE  WEAPON  for  which  the  subscripts  never  exceed  6,5 
and  4  and  for  which  120  storage  locations  will  be  set  aside. 
The  elements  in  both  arrays  will  be  object  identifiers. 

NOTE:  PROGRAM  OBJECT  differs  from  OBJECT  in  that  it  merely 

reserves  space  in  the  computer  memory  for  subsequent 
storage  of  a  variable  or  for  the  elements  of  an  array; 
OBJECT  reserves  space  for  storage  of  the  name  and  its 
dimension. 

The  CLASS  declaration  enables  the  programmer  to 
specify  that  certain  properties  of  designated  objects  or  the 
objects  themselves  have  common  characteristics,  and  these 
common  characteristics  form  a  set  or  group. 

CLASS  is  declared  as  follows: 
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CLASS  (C)  CONTAINS  a1#a2,  . . .  ,am 

where  C  ie  a  name  and  a1,a2,...,am  are  either  names  of  objects 
or  classes,  or  names  of  objects  or  classes  preceded  by  EACH*. 
The  names  a^,a2,..,,am  must  be  declared  before  they  are  U3ed 
to  form  a  class.  The  Implications  of  the  presence  or  absence 
of  EACH*  are  discussed  separately  below. 

The  following  declaration  specifies  the  object 
elements  which  will  be  used  to  form  classes: 

OBJECT  FORD ( 10) ,  MERC(5),  LINC(3),  CHEV(lO),  0LDS(5), 

CADDY ( 3 )  *  PLY ( 1$,  DODGE ( 5 )  *  CHRYS(3) 

The  following  declarations  show  how  classes  may 
be  formed  from  previously  defined  objects  or  classes,  which 
are  not  preceded  by  EACH. 

CLASS (ECONOMY)  CONTAINS  FORD,  CHEV,  PLY 
CLASS (MODERATE)  CONTAINS  MERC,  OLDS,  DODGE 
CLASS (PRESTIGE)  CONTAINS  LINC,  CADDY,  CHRYS 
CLASS( PRICE)  CONTAINS  ECONOMY,  MODERATE,  PRESTIGE 

All  the  object  elements  within  the  class  and  the 
class  name  itself  may  be  referenced.  The  following  table 
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Indicates  the  subscripts  which  may  be  used  with  the  object 
Identifiers  comprising  the  above  class  declarations. 


CLASS  NAME 

REPRESENTATIVE 

ECONOMY(l) 

FORD(l) 

ECONOMY (2) 

CHEV(l) 

EC0N0MY(3) 

PLY ( 1 ) 

MODERATE(l) 

MERC ( 1 ) 

MODERATE (2) 

OLDS(l) 

M0DERATE(3) 

DODGE(l) 

PRESTIGE ( 1 ) 

LINC(l) 

PRESTIGE(2) 

CADDY ( 1 ) 

PRESTIGE(3) 

CHRYS(l) 

PRICE(l) 

FORD ( 1 ) 

PRICE(2) 

MERC ( 1 ) 

PRICE(3) 

LINC(l) 

MEMBERS  OF  CLASS 

FORD (1,2, . . . 

,10) 

CHEV(l,2, . , . 

,10) 

PLY(1,2, . .., 

10) 

MERC (1,2, . . . 

,5) 

OLDS (1,2,... 

DODGE( 1 ,2, . . 

.,5) 

LINC(1,2,3) 

CADDY(1,2,3) 

CHRYS( 1,2,3 ) 

FORD (1,2, . . . ,10) ;  CHEV( 1 ,2, . . . , 1 
PLY (1,2, . .,,10) 

MERC (1,2, . . . ,5) ;  0LDS(1 ,2, . . . ,5 ) 
DODGE (1,2, . . .,5) 

LINC( 1,2,3) ;  CADDY(1,2,3); 
CHRYS(1,2,3) 
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All  Fords,  Chevs,  Plys  are  members  of  the  class 
ECONOMY.  This  class  has  30  members  because  the  OBJECT 
declaration  specified  F0RD(10),  CHEV(IO),  PLY(IO).  There¬ 
fore,  the  maximum  subscript  which  may  be  used  with  each  of 
the  object  elements  specified  as  members  of  a  class  Is 
equal  to  the  dimension  specified  in  the  OBJECT  declaration. 
Class  MODERATE  has  15  members;  class  PRESTIGE  has  nine  mem¬ 
bers. 

Since  class  PRICE  is  composed  of  ECONOMY,  MODERATE, 
and  PRESTIGE  all  the  cars  which  are  members  of  these  three 
classes  are  members  of  the  class  PRICE.  Therefore,  class 
PRICE  has  54  members. 

The  class  name  may  also  be  subscripted.  The  maxi¬ 
mum  subscript  for  a  class  name  is  determined  by  the  format 
of  the  CLASS  declaration.  In  the  above  example,  the  members 
of  the  class  were  not  preceded  by  EACH*.  This  signifies  to 
the  MILITRAN  compiler  that  the  separate  members  of  the  class 
are  identical  in  some  sense  to  the  other  members  which  have 
the  same  name. . .i.e. :  FORD(l)  is  identical  to  F0RD(9); 

D0DGE(2)  is  identical  to  D0DGE(4).  Because  they  are  identi¬ 
cal,  a  single  representative  from  each  name  may  be  used  to 
represent  the  entire  group.  MILITRAN  selects  the  first  one. 
Therefore,  the  maximum  subscript  which  may  be  used  with 
a  class  name  is  a  number  equal  to  the  number  of  representa¬ 
tives  in  the  class.  Since  class  Economy  has  3  representatives 
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FORD(l),  CHEV(l),  and  PLY(l)  the  maximum  subscript  that  may 
be  used  with  ECONOMY  is  3»  For  example: 

ECONOMY(l)  is  equivalent  to  FORD(l)  which  in  turn 
also  represents  F0RD(2,3, . . 10) . 

EC0N0MY(2)  is  equivalent  to  CHEV(l)  which  in  turn 
also  represents  CHEV(2,3, . . . , 10) . 

EC0N0MY(3)  is  equivalent  to  PLY(l)  which  in  turn 
also  represents  PLY(2,3, . . ., 10) . 

The  subscripts  and  the  meaning  of  the  subscripted 
olass  name  for  the  classes  MODERATE  and  PRESTIGE  are  deter¬ 
mined  in  the  same  manner  as  for  the  ECONOMY, 

• 

The  declaration  for  class  PRICE  stated  that  it 
oontalns  ECONOMY,  MODERATE,  and  PRESTIGE,  This  declaration 
means  that  all  members  of  the  CLASS  ECONOMY  are  identical  in 
some  sense  and  the  same  is  true  for  all  members  of  the  CLASS 
MODERATE  and  aU  members  of  the  CLASS  PRESTIGE,  MILITRAN 
seleots  3  representatives  for  this  class.  For  example: 

PRICE(l)  is  equivalent  to  FORD(l)  which  in  turn 
represents  FORD(2,3, . , . , 10) ,  CHEV(l,2, . . . , 10) ,  PLY(l,2, . . . , 10) . 
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PRICE(2)  1b  equivalent  to  MERC(l)  which  In  turn 
represents  MERC(2,3#...#5)#  0LDS(l,2, . . .,5),  PLY(l,2, . . .,5) . 

PRICE(3)  Is  equivalent  to  LINC(l)  whloh  In  turn 
represents  LINC(2,3),  CADDY(l,2,3) ,  CHRYS(l,2,3) . 


The  name  of  a  member  of  a  class  may  be  preceded 
by  the  functional  modifier  EACH*.  It  Is  used  In  a  CLASS 
declaration  to  specify  that  the  members  of  a  set  of  object 
elements  are  not  Identical  and  therefore  cannot  be  repre¬ 
sented  by  a  single  member  of  the  group. 

Examples : 

OBJECT  FORD(lO),  MERC(5),  LINC(3),  CHEV(lO),  0LDS(5), 

CADDY ( 3 ) j  PLY ( 10 ) ,  D0DGE(5)#  CHRYS(3) 

CLASS (ECONOMY)  CONTAINS  EACH*FORD,EACH*CHEV,EACH*PLY 
CLASS (MODERATE)  CONTAINS  EACH* MERC , EACH* OLDS , EACH* DODGE 
CLASS (PRESTIGE)  CONTAINS  EACH*LINC,EACH*CADDY,EACH*CHRYS 
CLASS (PRICE) CONTAINS  EACH* ECONOMY, EACH* MODERATE, EACH* PRESTIGE 

The  following  table  Indicates  the  subscripts  which 
may  be  used  with  the  object  Identifiers  In  the  above  class 
declarations . 
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CLASS  NAME 


REPRESENTATIVE 


MEMBERS  OP  CLASS 


ECONOMY(l) 

PORD(l) 

FORD (1,2, . . . , 10) ;  CHEV(1,2, 

...,10) 

ECONOMY (2) 

• 

FORD (2) 

• 

PLY(1,2,...,10) 

• 

ECONOMY (10) 

FORD (10) 

ECONOMY (11) 

CHEV(l) 

ECONOMY (12) 

• 

CHEV(2) 

• 

ECONOMY (20) 

CHEV (10) 

ECONOMY (21) 

• 

PLY ( 1 ) 

• 

EXONOMY (30) 

PLY (10) 

MODERATE(l) 

• 

MERC  ( 1 ) 

• 

MERC ( 1,2, . . . ,5) J  OLDS (1,2, . 

..,5); 

• 

MODERATE (5) 

• 

MERC (5) 

D0DQE(l,2, , , ,,5) 

MODERATE (6) 

• 

OLDS ( 1 ) 

# 

• 

MODERATE (11) 

• 

• 

DODGE(l) 

• 

• 

MODERATE (15) 

D0DGE(5) 

PRESTIGE ( 1 ) 

• 

LINC(l) 

• 

LINC (1,2,3) »  CADDY (1,2,3); 

• 

PRESTIGE(3) 

• 

LINC(3) 

CHRYS( 1,2,3) 

PRESTIGE ( 4 ) 

• 

CADDY ( 1 ) 

• 

PRESTIGE (7) 

# 

CHRYS(l) 

• 

• 

PRESTIGE(9) 

• 

CHRYS(3) 
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CLASS  NAME 

REPRESENTATIVE 

PRICE(l) 

FORD(l) 

PRICE(2) 

• 

F0RD(2) 

• 

PRICE(ll) 

• 

CHEV(l) 

• 

PRICE(20) 

CHEV(lO) 

PRICE(21) 

• 

PLY ( 1 ) 

• 

PRICE(30) 

PLY (10) 

PRICE(31) 

• 

MERC(l) 

• 

PRICE(35) 

MERC (5) 

PRICE (36) 

• 

OLDS ( 1 ) 

• 

PRICE(40) 

OLDS (5) 

PRICE(4l) 

• 

DODGE ( 1 ) 

• 

PRICE(45) 

D0DGE(5) 

PRICE(46) 

• 

LINC(l) 

• 

PRICE (49) 

• 

• 

CADDY ( 1 ) 

• 

PRICE(52) 

• 

• 

CHRYS(l) 

• 

• 

PRICE(54) 

• 

CHRYS(3) 

MEMBERS  OP  CLASS 

FORD (1,2, ,,,,10);  CHEV(l,2, .,.,10) 
PLY ( 1,2, ... ,10) 

MERC(1,2,...,5);  0LDS(l,2, . . . ,5) ; 
DODGE (1,2, ... ,5) 

LINC(1,2,3);  CADDY (1,2,3); 
CHRYS(1,2,3) 


50 


The  rules  governing  the  subscripting  of  the  mem¬ 
bers  of  the  class  are  the  same  as  stated  for  the  previous 
example. 


However,  since  the  members  of  the  class  are  pre¬ 
ceded  by  EACH*  this  signifies  to  the  oompiler  that  the 
separate  members  of  the  class  are  not  ldentloal  to  other 
members  whioh  have  the  same  name...l.e.f  FORD(l)  Is  not 
ldentloal  to  F0RD(6);  CADDY ( 1 )  Is  not  Identical  to  CADDY(3 ) 
Since  they  are  not  Identical,  a  single  representative  from 
each  name  cannot  represent  the  entire  group.  Therefore, 
when  the  name  of  olass  members  are  preoeded  by  EACH*,  the 
maximum  subscript  that  may  be  used  with  the  class  name  Is  a 
number  equal  to  the  sum  of  the  maximum  subscripts  of  the 
members  of  the  olass.  For  example:  the  maximum  subscript 
for  the  olass  ECONOMY  is  30  beoause  the  maximum  subscript 
for  FORD  Is  10,  for  CHEV  10,  for  PLY  10. 

The  subscripts  and  the  meaning  of  the  subscripted 
olass  name  for  the  o lasses  MODERATE,  PRESTIGE  and  PRICE  are 
determined  In  the  same  manner  as  for  the  olass  ECONOMY. 

The  next  two  examples  show  how  a  olass  may  be  com 
posed  of  objeot  elements,  whioh  may  or  may  not  be  preceded 
by  EACH*. 


51 


OBJECT  FORD(lO),  MERC(5),  LINC(3),  CHEV(lO),  OLDS(5), 
CADDY(3),  PLY(IO),  DODOE(5),  CHRYS(3) 

CLASS (CAR)  CONTAINS  EACH*FORD,  MERC,  LINC,  EACH*CHEV 
OLDS,  CADDY,  EACH* PLY,  DODOE,  CHRYS 


CLASS  NAME 

REPRESENTATIVE 

CAR(l) 

FORD(l) 

CAR(2) 

• 

FORD (2) 

• 

• 

CAR(IO) 

FORD (10) 

CAR (11) 

MERC(l) 

CAR (12) 

LINC(l) 

CAR(13) 

CHEV(l) 

CAR (14) 

• 

CHEV ( 2 ) 

# 

CAR (22) 

CHEV  (10) 

CAR(23) 

OLDS ( 1 ) 

CAR (24) 

CADDY(l) 

CAR (25) 

PLY(l) 

CAR(26) 

• 

PLY(2) 

• 

CAR (34) 

PLY(IO) 

CAR(35) 

DODGE ( 1 ) 

CAR(36) 

CHRYS ( 1 ) 

MEMBERS  OP  CLASS 

FORD( 1 , 2, . . . , 10 ) ; MERC (1, 2, . . . 5 ) ; 
LINC (1,2, 3) 

CHEV(l,2,...,10)j0LDS(l,2, 

CADDY(1,2,3) 

PLY(l,2, , ,  „10); DODGE (1,2, . . .,5)j 
CHRYS (1,2, 3) 
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OBJECT  MERC  (5)#  CADDY (3 )#  DODGE (5)*  CHRYS(3) 
CLASS (MODERATE)  CONTAINS  MERC,  DODGE 
CLASS (PRESTIGE)  CONTAINS  EACH*CADDY,  EACH*CHRYS 
CLASS (CAR)  CONTAINS  EACH*MODERATE,  PRESTIGE 


CLASS  NAME 

REPRESENTATIVE 

MEMBERS  OP  CLASS 

MODERATE (1) 

MERC (1 ) 

MERC (1,2, . . . , 5 ) J DODGE(l, 2, . . . , 5 ) 

MODERATE (2) 

DODGE (1) 

PRES TIDE (1) 

CADDY  (1) 

CADDY (1,2, 3 ) J CHRYS (1,2,3) 

PRESTIGE  (2) 

CADDY  (2) 

PRESTIGE (3) 

CADDY (3) 

PRESTIGE  (4) 

CHRYS(l) 

PRESTIGE (5) 

CHRYS (2 ) 

PRESTIGE (6) 

CHRYS (3 ) 

CAR (1 ) 

MERC (1 ) 

MERC (1,2, . . , ,5) ;D0DGE(l,2, . . . ) 

CAR (2) 

DODGE (1 ) 

CADDY (1,2,3 ) J CHRYS (1,2,3) 

CAR (3) 

CADDY  (1) 
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3.  NORMAL  MODE  Declaration 


In  the  discussion  of  the  different  elements 
which  may  comprise  a  program  environment,  we  have  seen 
that  these  elements  may  he  described  as  having  modes: 
real,  integer,  logical  or  program  object.  If  the  element 
is  a  variable,  the  mode  may  be  specified  in  a  REAL,  INTEGER, 
LOGICAL  or  PROGRAM  OBJECT  statement.  Another  method  of 
declaring  the  mode  of  variables  is  through  the  use  of  the 
NORMAL  MODE  declaration.  This  declaration  allows  the  pro¬ 
grammer  to  specify  a  convention  by  which  names  not  explicitly 
declared  may  be  assigned  modes.  Although  the  NORMAL  MODE 
declaration  is  used  to  set  the  mode  of  variables  instead 
of  the  regular  declarations  of  REAL,  INTEGER  etc.,  a 
declaration  of  NORMAL  MODE  does  not  override  a  specific 
declaration  of  mode. 

NORMAL  MODE  is  declared  as  follows: 

normal  modj^>  m^ (a ^ , a ) * ^2 (b^ , bg,  •  •  •  #  b  ^ ) 

where  m^  and  m^  are  mode  names  (REAL,  INTEGER  etc.)  and 

al,a2* *  * *,ak  and  ^i^bg* . . .,br  are  single  alphabetic  characters. 

The  statement  causes  all  names  beginning  with  the  letters 
al,a2,  *  *  *,ak  fco  13 e  a88i8ned  fcbe  mode  specified  by  and  all 

names  beginning  with  the  letters  b^,b2,...,br  to  be  assigned 
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the  mode  specified  by  mg.  Any  letters  which  have  not  been 
specifically  associated  with  a  mode  name  will  be  assigned 
to  REAL  MODE. 

Examples : 

NORMAL  MODE  REAL(A,B,C,D,E,F,  0,H,  I,  J,K), 

INTEGER(L,M,N,0,P,Q,R,S,T,U,V,W,X,Y,Z) 

Names  of  variables  beginning  with  the  letters  A 
through  K  are  assigned  REAL  MODE:  names  beginning  with  L 
through  Z  are  assigned  INTEGER  MODE. 

NORMAL  MODE  REAL( A,B,C,D,E),  INTEQER(F,Qf H,I, J) 

LOGICAL(L,M,N,,0,P),  PROGRAM  OBJECT (Q,R,S,T,U,V,W,X,Y, 

Names  beginning  with  A  through  E  are  assigned 
REAL  MODE:  names  beginning  with  F  through  J  are  assigned 
INTEGER  MODE;  names  beginning  with  L  through  P  are  assigned 
LOGICAL  MODE,  and  those  beginning  with  Q  through  Z  are  as¬ 
signed  PROGRAM  OBJECT  MODE. 

NORMAL  MODE  INTEGER( A,B, C,D),  LOGICAL(E,F,G,H) 

Names  beginning  with  A  through  D  are  assigned 
INTEGER  MODE  and  those  beginning  with  E  through  H  are 
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assigned  LOGICAL  MODE.  Since  I  through  Z  are  not  specifi¬ 
cally  associated  with  a  mode,  all  names  beginning  with 
these  letters  would  be  assigned  to  REAL  MODE. 

If  the  NORMAL  MODE  statement  is  written  as: 

NORMAL  MODE  m1(a1,a2, . .♦,ak),m2(b1,b2, . . .,bp)tm^ 

all  the  names  beginning  with  letters  not  specifically 
associated  with  m^,  or  mg  would  be  assigned  to  the  mode 
specified  by  m^. 

Examples : 

NORMAL  MODE  REAL(A,B,C),  INTEGER (D,E,FtG)t  PROGRAM  OBJECT 

Names  beginning  with  A,  B,  and  C  are  assigned 
REAL  MODE  and  those  beginning  with  D  through  G  are  assigned 
INTEGER  MODE.  Since  PROGRAM  OBJECT  does  not  have  any  letters 
specifically  associated  with  it,  all  unspecified  letters  (H 
through  Z)  are  assigned  PROGRAM  OBJECT  MODE. 

If  the  statement  is  written  as: 

NORMAL  MODE  INTEGER 
or 

NORMAL  MODE  PROGRAM  OBJECT 
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every  letter  would  be  assigned  to  the  mode  specified  in  the 
NORMAL  MODE  statement. 

Each  NORMAL  MODE  statement  sets  the  mode  for 
names  beginning  with  the  specified  letters  until  overriden 
by  a  subsequent  NORMAL  MODE  statement.  If  an  unspecified 
variable  is  declared  (one  which  is  not  preceded  by  a  mode 
description)  before  a  NORMAL  MODE  statement  is  given,  the 
MILITRAN  compiler  will  assign  the  mode  REAL  to  the  unspeci¬ 
fied  element. 

4.  Vectors 

The  MILITRAN  program  environment  may  also  be 
comprised  of  elements  of  information  in  the  form  of  vectors, 
a  vector  being  a  group  of  arrays. 

The  vector  declaration  is  written  as: 

VECTOR  d  ^ ,  ^2 *  "  * 

where  N  is  the  name  of  a  vector;  a^,a2,...,a1  are  the  vector 
components,  each  of  which  is  a  name  and  all  of  which  are 
associated  with  name  "N";  and  d^,d2#...#d^  are  the  dimensions 
associated  with  each  component. 

Retrieval  of  any  member  of  the  vector  may  be 
accomplished  in  the  following  manner: 
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1.  by  subscripting  the  name  of  the  vector  compo¬ 
nent  (array),  in  which  case  the  number  of  subscripts  is 
equal  to  the  number  of  arguments  in  the  dimension. 

2.  by  subscripting  the  name  of  the  vector,  in 
which  case  the  number  of  subscripts  is  equal  to  the  number 
of  arguments  in  the  dimension  +  1.  The  terminating  sub¬ 
script  denotes  the  vector  component.  For  example: 

VECTOR  Q((QR,QS,QT),4,5) 

defines  a  vector  "Q"  comprised  of  three  components#  OR,  QS, 
QT,  each  of  which  is  a  two  dimensional  array  for  which  20 
storage  locations  will  be  reserved,  resulting  in  a  total 
storage  allocation  of  60  for  the  vector.  The  assignment  of 
storage  is  such  that  all  of  QR  is  followed  by  all  of  QS, 
which  is  followed  by  all  of  QT. 

Suppose  it  is  desired  to  retrieve  the  twentieth 
element  in  the  vector.  If  the  name  of  the  vector  component 
is  subscripted,  it  would  be  written  as: 

QR(4,5) 

If  the  name  of  the  vector  itself  is  subscripted,  it  would 
be  written  as: 

Q(4,5,l) 
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(The  third  subscript  "l"  indicates  the  first  component  "QR".) 
Similarly,  Q(4,2,3)  refers  to  the  same  element  as  QT(4,2). 

Modes  of  Vectors 

Both  the  vector  name  and  the  component  names  always 
have  a  mode  but  there  is  no  requirement  that  these  modes  be 
the  same  or  that  they  be  compatible.  The  mode  or  modes  of  a 
vector  and  its  components  may  be  declared  in  REAL,  INTEGER, 
PROGRAM  OEJECT  and  LOGICAL  declarations,  or  they  may  be  as¬ 
signed  the  NORMAL  MODE.  However,  if  the  mode  of  the  vector  is 
not  compatible  with  the  mode  or  modes  of  the  components,  the 
compiler  will  always  assume  that  the  data  involved  is  already 
as  of  the  same  mode  of  the  name  that  is  used.  The  following 
rules  determine  the  mode  that  will  be  assigned  to  a  vector  and 
its  component  arrays. 

1.  If  both  the  name  of  the  vector  and  its  compo¬ 
nents  are  each  specifically  declared  in  REAL,  INTEGER,  PROGRAM 
OBJECT,  or  LOGICAL  declarations,  the  vector  and  the  components 
of  the  vector  are  each  assigned  the  mode  specified  by  the 
declaration. 

Examples : 

REAL  A 
INTEGER  B, C 
PROGRAM  OBJECT  D 
LOGICAL  E 

VECTOR  A((B,C,D,E) ,2,3) 
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INTEGER  A 

REAL  B,C,D,E 

VECTOR  A(B,C,D,E),2,3) 

REAL  A,B 
INTEGER  C,D 
PROGRAM  OBJECT  E 
VECTOR  A((B,C,D,E),2,3) 

In  the  above  examples,  the  modes  of  the  vector  "A" 
and  Its  components  "B,C,D,E"  are  those  so  designated  by  the 
mode  declarations. 

2.  If  the  name  of  the  vector  Is  not  specifically 
declared  but  the  component  names  are  each  specifically 
declared  In  REAL,  INTEGER,  PROGRAM  OBJECT,  or  LOGICAL 
declarations,  the  vector  name  Is  assigned  the  NORMAL  MODE 
In  effect  at  the  appearance  of  the  VECTOR  statement,  and 
the  component  names  are  assigned  the  mode  specifically  de¬ 
clared  for  each  component. 

Example : 

INTEGER  B,C 
PROGRAM  OBJECT  D 
LOGICAL  E 

VECTOR  A((3,C,D,E),2,3) 
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The  mode  of  vector  "A"  Is  the  NORMAL  MODE  In 
effect  at  the  time  the  vector  statement  Is  encountered  by 
the  oompiler.  The  mode  could  be  REAL,  INTEGER,  PROGRAM 
OBJECT,  or  LOGICAL. 

3.  If  the  name  of  the  vector  is  specifically 
declared  and  the  names  of  the  components  are  not  specifi¬ 
cally  declared,  the  components  are  assigned  the  same  mode 
as  declared  for  the  vector  name  itself. 

Example: 

REAL  A 

VECTOR  A((B,C,D,E),2,3) 

Components  "B,C,D,E"  are  assigned  the  REAL  mode 

INTEGER  A 

PROGRAM  OBJECT  D,E 

VECTOR  A((B,C,D,E),2,3) 

Components  B, C  are  assigned  INTEGER  mode.  D,E 

are  assigned  PROGRAM  OBJECT  mode. 

4.  If  both  the  name  of  the  vector  and  the  names 
of  its  components  are  not  specifically  declared,  the  vector 
and  its  components  are  assigned  the  NORMAL  mode  in  effect 
at  the  appearance  of  the  vector  statement. 
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Example : 


VECTOR  A((B,C,D,E),2,3) 

"A"  and  "B,C,D, E"  are  all  assigned  the  NORMAL  mode. 

NOTE:  In  all  of  the  above  examples,  the  mode  of  the  vector 
and  its  components  could  have  been  declared  after  the 
appearance  of  the  VECTOR  statement.  A  specific  decla¬ 
ration  anywhere  In  the  program  overrides  NORMAL  MODE. 

5»  COMMON  Statement 

The  COMMON  statement  provides  the  programmer  with 
the  option  of  controlling  the  assignment  of  the  locations 
which  will  be  occupied  by  variable  data.  The  form  of  the 
COMMON  statement  Is: 

COMMON  n1,n2, ...,n1 

where  each  n  Is  the  name  of  a  variable,  nonsubscrlpted  array 
name,  nonsubscrlpted  vector  name,  or  nonsubscrlpted  list 
name. 

Variable  names  which  appear  In  a  COMMON  statement 
are  assigned  to  a  separate  portion  of  memory,  enabling  a 
program  and  Its  subprograms  to  share  storage  locations.  For 
example,  during  execution  of  a  MILITRAN  program,  while  dif¬ 
ferent  variable  data  may  be  required  at  different  times  by 
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separately  oomplled  portions  of  the  program.  It  may  not  be 
necessary  for  all  such  data  to  occupy  distinct  storage  lo¬ 
cations.  The  COMMON  statement  enables  such  variable  data 
to  share  storage  locations,  resulting  In  a  large  saving  of 
storage  space. 

The  locations  assigned  to  the  variable  names 
appearing  In  COMMON  statements  are  assigned  In  the  sequence 
In  which  the  names  appear  In  the  statements,  starting  with 
the  first  COMMON  statement  of  the  program. 

Use  of  the  COMMON  statement  also  permits  the  data 
stored  In  the  COMMON  area  to  be  accessed  by  programs  which 
have  been  compiled  separately.  In  this  way,  arguments  which 
are  required  for  functions  or  subroutines  may  be  transmitted 
from  one  program  to  another.  This  may  be  accomplished  by 
having  the  corresponding  variables  occupy  the  same  location 
in  the  COMMON  area,  which  In  turn  is  accomplished  by  having 
them  occupy  corresponding  positions  In  the  COMMON  statements 
of  the  two  programs. 

For  example.  If  a  program  has  the  following  COMMON 
statements : 

COMMON  A,B,C,D 

COMMON  SPEED,  DIST,  RATE 

the  variables  will  appear  In  the  COMMON  area  In  the  following 
sequence: 
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A 


B 

C 

D 

SPEED 

DIST 

RATE 

If  another  program  required  only  the  use  of  vari¬ 
ables  B,C,  SPEED,  and  RATE,  dummy  variables  could  be  named 
in  the  COMMON  statements  of  the  second  program  in  order  to 
force  reservation  of  the  necessary  locations  to  oause  the 
same  locations  to  be  assigned  to  the  corresponding  variables. 

NOTE:  If  an  array,  vector,  or  list  is  assigned  to  the  COMMON 
area,  the  name  as  it  appears  in  the  COMMON  statement 
is  nonsubs crip ted.  The  amount  of  space  to  be  reserved 
is  determined  by  the  dimension  that  has  been  stated  in 
the  array,  vector,  or  list  declaration. 

6.  Object  Elements  used  as  Dimensions  and  Subscripts 

The  discussion  of  the  use  of  nonnumeric  elements  as 
dimensions  and  subscripts  has  been  deferred  in  order  to  per¬ 
mit  a  sequential  explanation  of  the  various  types  of  decla¬ 
rations.  However,  each  of  the  array  and  vector  declarations 
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nay  be  dimensioned  or  subscripted  by  an  object  element 


Object  Elements  used  to  Specify  Dimensions 

In  order  to  specify  the  dimension  of  an  array  or 
vector  by  using  an  object  element,  the  object  must  be  de¬ 
clared  In: 

1.  An  OBJECT  declaration,  or 

2.  A  CLASS  declaration 

The  value  of  the  dimension  will  be  the  cardinality  of  the 
object. 


For  example.  If  object  elements  are  declared  as 

follows: 


OBJECT  FORD(lO),  MERC(5),  LINC(3) 

the  dimensions  of  an  array  could  be  specified  as: 

REAL  SPEED  (FORD,  MERC,  LINC) 

SPEED  Is  a  three  dimensional  array  for  which  150 
locations  will  be  reserved  beoause  the  value  of  each  dimen¬ 
sion  Is  specified  by  the  cardinality  of  the  designated 
object. 
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The  next  three  examples  use  a  CLASS  name  to 
specify  a  dimension. 

OBJECT  FORD(lO),  MERC(5),  LINC(3),  CHEV(lO),  0LDS(5), 
CADDY(3),  PLY(IO),  DODOE(5),  CHRYS(3) 

CLASS  ECONOMY  CONTAINS  FORD,  CHEV,  PLY 

CLASS  MODERATE  CONTAINS  EACH*MERC,  EACH*OLDS,  EACH*DODOE 

CLASS  PRESTIGE  CONTAINS  EACH*LINC,  EACH*CADDY,  CHRYS 

REAL  SPEED  (ECONOMY) 


Speed  Is  now  a  one  dimensional  array  for  which  3 
locations  will  be  reserved. 


REAL  SPEED  (MODERATE) 


Speed  Is  a  one  dimensional  array  for  whloh  15 
locations  will  be  reserved. 


REAL  SPEED  (PRESTIGE) 


Speed  Is  a  one  dimensional  array  for  which  7 
locations  will  be  reserved. 
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Object  Elements  used  as  Subscripts 


Subscripted  OBJECT  names,  subscripted  CLASS  names, 
and  PROGRAM  OBJECT  names  which  may  or  may  not  be  subscripted 
may  be  used  to  subscript  REAL,  INTEGER,  LOGICAL,  and  PROGRAM 
OBJECT  elements.  For  example,  if  oertain  elements  are  de¬ 
clared  as  follows: 

OBJECT  FORD(IO),  MERC(5),  LINC(3),  CHEV(lO),  0LDS(5), 
CADDY(3),  PLY(IO),  DODGE(5),  CHRYS(3) 

CLASS  ECONOMY  CONTAINS  FORD,  CHEV,  PLY 

CLASS  MODERATE  CONTAINS  EACH*MERC,  EACH*OLDS,  EACH*DODGE 
CLASS  PRESTIGE  CONTAINS  EACH*LINC,  EACH*CADDY,  CHRYS 
PROGRAM  OBJECT  THIS  CAR,  POOL  CAR(3) 

CLASS  CAR  CONTAINS  EACH*ECONOMY,  EACH*MODERATE,  EACH*PRESTIGE 
REAL  COST  (CAR) 

INTEGER  AGE  (CAR) 

the  following  are  some  of  the  object  elements  whloh  might  be 
used  as  subscripts: 
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COST 

(FORD(3)) 

whioh  1b  COST  (1) 

COST 

(MERC(*)) 

which  1b  COST  (7) 

COST 

(car(io) ) 

which  is  COST  (10) 

COST 

(THIS  CAR) 

whose  value  depends 

upon  that  of  "THIS  CAR" 

COST 

(POOL  CAR (2)) 

whose  value  depends 

upon  that  of  POOL  CAR (2) 
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CHAPTER  IV 


PROGRAMMING  IN  MILITRAN: 

ARITHMETIC  AND  LOGICAL  PROCESSING 

The  preceding  chapters  discussed  the  elements 

of  Information  which  comprise  a  program  environment  - 

the  data  which  are  referenced  by  the  program  in  order  to 
solve  a  problem  and  the  instructions  to  the  compiler 
which  provide  information  about  the  source  program.  This 
chapter  will  explain  some  of  the  statements  which  cause 
calculations  to  occur  and  decisions  to  be  made. 

1.  Expressions 

A  MILITRAN  expression  is  a  sequence  of  constants, 
subscripted  and  non-subs cripted  variables  separated  by 
operation  symbols,  commas,  and  parentheses.  The  MILITRAN 
language  contains  two  kinds  of  expressions:  arithmetic 
and  logical. 

The  simplest  form  of  an  arithmetic  expression 
is  a  single  quantity.  This  quantity  may  be  an  arithmetic 
constant  or  an  arithmetic  variable  -  subscripted  or  non- 
subscripted . 
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Examples 


3 

7.4 

MAX 

TIME(2) 


Compound  arithmetic  expressions  may  be  formed 
by  combining  simple  arithmetic  expressions  through  the 
use  of  arithmetic  operators.  These  operators  are: 


ABS(x) 

.P. 

/ 

+ 


absolute  value  of  x 

exponentiation 

multiplication 

division 

addition 

subtraction 


If  A  and  B  are  any  arithmetic  expression,  then 


these  operators  are  defined  In  the  following  manner: 


ABS(A) 

means 

the 

positive 

A.P.B 

means 

the 

value 

of 

A*B 

means 

the 

value 

of 

A/B 

means 

the 

value 

of 

A+B 

means 

the 

value 

of 

A-B 

means 

the 

value 

of 

magnitude  of  A  „ 

A  raised  to  the  power  B.(A°) 

A  multiplied  by  the  value  of  B 
A  divided  by  the  value  of  B 
A  plus  the  value  of  B 
A  minus  the  value  of  B 
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For  Example: 

ABS  (MINIMUM) 

3.6  .P.I 
RATE  +  TIME 
DIST(I)/TIME(J) 

ALPHA  +  BETA 
ALPHA  -  BETA 

In  expressions  with  three  or  more  variables, 
some  means  for  desorlblng  the  exaot  order  In  whloh  the 
operations  are  to  be  performed  is  neoessary.  For  example, 
the  expression: 

X  +  Y  *  Z 

may  be  oomputed  In  two  ways .  One  way  Is  to  add  X  and  Y 
and  multiply  the  sum  by  Z,  The  other  is  to  multiply  Y 
by  Z  and  add  X  to  the  produot,  Therefore  In  order  to 
olarlfy  the  order  of  operations,  MILITRAN  prescribes  a 
firm  set  of  rules .  The  order  of  precedence  Is  as  follows : 

ABS(x) 

.P. 

/ 

* 

+ 
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In  the  example,  X  +  Y  *  Z,  MILITRAN  would 


multiply  Y  by  Z  and  add  X  to  the  product. 


The  following  examples  Illustrate  the  ordering 
of  expressions: 


2. P.3-4  gives  4  exponentiation  la  per¬ 

formed  before  addition 
or  subtraction. 


2. P.3/2 


3+7*2 


gives  4  exponentiation  la  per¬ 

formed  before  multi¬ 
plication  or  addition. 

gives  17  multiplication  la  per¬ 

formed  before  addition 
or  subtraction. 


In  the  next  example  ,  If  A  has  assumed  a  value 
of  -  2  the  use  of  the  operator  ABS  would  cause  MILITRAN 
to  evaluate  A  and  place  Its  new  value  In  the  expression 
which  would  then  be  evaluated  according  to  the  rules 
defined  above. 


4  +  6  *  ABS(A)  gives  16  the  absolute  value  of 

A  Is  2  which  Is  then 
multiplied  by  6. 

When  4  Is  added  to 
the  resulting  pro¬ 
duct,  a  value  of  l6 
Is  obtained. 
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When  two  or  more  operations  are  to  be  computed , 
the  ordering  rules  may  considerably  alter  the  result.  For 
example : 


20/4*5  gives  25 

If  It  were  Intended  that  the  multiplication  occur  first, 
the  expression  should  be  written  as: 

20/(4*5)  gives  1 

Die  above  example  Illustrates  the  method  used 
to  override  the  order  of  operations.  Parentheses  are 
used  to  specify  the  order  of  operations  In  an  expression. 

Examples : 

2+4*3  -  6/2  gives  11  as  a  result, 

whereas 


((2  +  4)  *  3  -  6)  /2  gives  6. 

The  expression 

A  +  B  *  C/D  +  E.P.F  -  Q 
will  be  taken  to  mean 

A+|*B  +  EP  -0 
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Using  parentheses,  the  expression  oould  be 

written, 

(A  +  B)  *  C/t>  +  E.P.F  -  0 
which  would  be  taken  to  mean 

(A  +  B)  *  §  +  E*  -  0 

Expressions  with  repeated  exponentiation  must 
have  clarifying  parentheses.  For  example: 

(2. P.2). P.3  gives  64 

2.P. (2. P.3)  gives  256 


Arithmetic  expressions  may  be  of  a  single  mode 
or  a  combination  of  real  and  Integer  modes.  However,  If 
the  elements  comprising  an  expression  are  of  mixed  modes, 
the  appearance  of  a  real  variable  or  a  real  constant  with  a 
fractional  part  oauses  the  entire  expression  to  be  evalu¬ 
ated  In  the  real  mode.  For  example: 

3.2/2  gives  1.6 

because  the  divisor  2  Is  first  evaluated  as  a  real  number. 

If  a  real  constant  or  real  variable  Is  used  as 
a  subscript  or  an  argument  of  a  dimension,  the  real  quan¬ 
tity  will  be  truncated  to  an  Integer  value  before  use. 

For  example.  If  I  assumes  the  value  7.4  and  Is  later  used 
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aa  a  aubacrlpt  In  an  expreaalon  aa  In 
A  +  B  +  B(I) 

I  would  be  truneated  to  7  before  the  evaluation  of  the 
expression. 

Logical  Express Iona 

A  logical  expreaalon  consists  of  certain  se¬ 
quences  of  logical  constants,  logical  variables,  arithmetic 
expressions,  and  object  elements  separated  by  logical 
operators  or  relational  operators,  A  logical  expression 
always  has  the  value  TRUE  or  FALSE,  The  simplest  form  of 
a  logical  expression  Is  a  single  quantity  -  a  logical  con¬ 
stant  or  logical  variable  (subscripted  or  non-subscrlpted) . 

Examples : 

TRUE 

FALSE 

PLANE(2)  (where  PLANE  has  been  defined  as 
a  LOGICAL  array) 


Compound  logical  expressions  may  be  formed  by 
combining  simple  logical  expressions  through  the  use  of 
logical  operators.  Logical  operators  may  operate  only 
on  logical  expressions.  They  are  listed  below  In  de¬ 
creasing  order  of  precedence: 
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.NOT. 

Negation 

.AND, 

Conjunction 

.EXOR. 

Exclusive  disjunction 

.OR. 

Disjunction 

.EQV. 

Equivalence 

The  periods  are  part  of  the  logical  operator 
notation  and  must  be  present. 

If  A  and  B  are  any  logical  expressions,  then 
the  logical  operators  are  defined  In  the  following  manner: 


.NOT. A 

has  the  value  TRUE  only  if  A  Is 

FALSE;  It  has  the  value  FALSE 

only  If  A  Is  TRUE. 

A.AND.B 

has  the  value  TRUE  only  If  both  A 

and  B  have  the  value  TRUE;  other¬ 
wise  It  has  the  value  FALSE. 

A.OR.B 

has  the  value  TRUE  If  either  A 

or  B  Is  TRUE;  It  has  the  value 

FALSE  only  If  both  A  and  B  are 

FALSE. 

A. EXOR. B 

has  the  value  TRUE  If  either  A  Is 

TRUE  and  B  Is  FALSE  or  A  Is  FALSE 

and  B  is  TRUE;  It  has  the  value 

FALSE  only  If  both  A  and  B  are  TRUE 

or  if  both  A  and  B  are  FALSE 
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A.EQV.B 


has  the  value  TRUE  either  If  both 


A  and  B  have  the  value  TRUE  or  If 


both  A  and  B  have  the  value  FALSE; 

otherwise  It  has  the  value  FALSE. 

The  logloal 

operator  .NOT.  must  be  Immediately 

followed  by  a  logical 

expression.  The  other  logical 

operators  must  be  preceded  and  followed  by  logical  ex¬ 
pressions  to  form  compound  logical  expressions. 


Examples : 

.NOT. TRUE 

always  has  the  value  FALSE 

.NOT. FALSE 

always  has  the  value  TRUE 

TRUE. AND. FALSE 

always  has  the  value  FALSE 

TRUE. OR .FALSE 

always  has  the  value  TRUE 

PLANE1 . OR , PLANE2 

may  have  the  value  TRUE  or  FALSE 

depending  on  the  values  of  the 

logical  variables  PLANE1  and  PLANE2 

FALSE. EXOR. TRUE 

always  has  the  value  TRUE 

TRUE. EXOR. TRUE 

always  has  the  value  FALSE 

SWITCH1 .EX0R.SWITCH2 

may  have  the  value  TRUE  or  FALSE 

depending  on  the  values  of  the 

logical  variables  SWITCH1  and 

SWITCH2 
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SWITCH1 • EQV. SWITCH2  the  logical  variables  SWITCH1 

and  SWITCH2  must  have  the  same 
value  for  the  statement  to  be 
TRUE 

The  above  examples  are  logical  expressions  which 
have  only  one  logical  operator.  The  following  examples 
illustrate  the  use  of  several  logical  operators  in  compound 
expressions  and  the  use  of  parentheses  for  the  purpose  of 
overriding  the  hierarchy  of  operations. 

The  logical  expression: 

.NOT  .  TRUE  .  AND  .  FALSE 

has  the  value  FALSE  because  .NOT,  operates  only  on  the 
logical  constant,  variable,  or  expression  immediately  to 
the  right.  However,  if  the  expression  is  written  as 

.NOT.  (TRUE. AND. FALSE) 

it  would  have  a  value  of  TRUE,  because  the  expression 
(TRUE. AND. FALSE)  would  be  evaluated  first. 

In  the  next  example: 

(X. AND.. NOT. Y)  .OR.  ( .NOT.X. AND.Y) 
the  expression  would  have  a  value  of  TRUE  if  X  is  TRUE  and 
Y  is  FALSE  or  if  X  is  FALSE  and  Y  is  TRUE.  It  could  only 
have  a  value  of  FALSE  if  both  X  and  Y  are  TRUE  if  both 
X  and.  Y  are  FALSE. 
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Relational  Expressions 

MILITRAN  provides  a  further  extension  to  the 
set  of  logical  operators  In  order  to  permit  the  formation 
of  compound  logical  expressions.  This  second  group  of 
operators  Is  called  relational  operators.  One  set  of  re¬ 
lational  operators  acts  on  arithmetic  elements,  the  other 
set  acts  on  object  elements. 


An  arithmetic  relational  expression  consists  of 
two  arithmetic  expressions,  separated  by  an  arithmetic 
relational  operator.  An  arithmetic  relational  expression 
always  has  the  value  TRUE  or  FALSE. 


The  arithmetic  relational  operators  are: 

.E.  equal  to 

.NE.  not  equal  to 

.0.  greater  than 

.GE.  greater  than  or  equal  to 

.L.  less  than 

.LE.  less  than  or  equal  to 

The  periods  are  part  of  the  arithmetic  relational 
operator  notation  and  must  be  present. 
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If  A  and  B  are  any  two  arithmetic  expressions, 
then  the  arithmetic  relational  operators  are  defined  as 


follows  s 

A.E.B 

has  the  value  TRUE  only  if  the  value  of  A  is 

equal  to  the  value  of  B;  otherwise  it  has  the 

value  FALSE. 

A.NE.B 

has  the  value  TRUE  only  if  the  value  of  A  is 

not  equal  to  the  value  of  B;  otherwise  it  has 

the  value  FALSE. 

A.O.B 

has  the  value  TRUE  only  if  the  value  of  A  is 

greater  than  the  value  of  B;  otherwise  it  has 

the  value  FALSE. 

A.OE.B 

has  the  value  TRUE  only  if  the  value  of  A  is 

greater  than  or  equal  to  the  value  of  B;  other¬ 
wise  it  has  the  value  FALSE. 

A.L.B 

has  the  value  TRUE  only  if  the  value  of  A  is 

less  than  the  value  of  B;  otherwise  it  has  the 

value  FALSE. 

A.LE.B 

has  the  value  TRUE  only  if  the  value  of  A  is  less 

than  or  equal  to  the  value  of  B;  otherwise  it 

has  the  value  FALSE. 

The  two  arithmetic  expressions  in  a  relational 
expression  may  be  of  the  same  mode  or  one  may  be  real  and 


the  other  integer.  In  the  latter  case,  the  integer  ex¬ 
pression  will  be  evaluated  and  the  result  converted  to 
a  real  number  before  it  is  compared  to  the  second  ex¬ 
pression.  For  example,  if  A  and  B  are  integer  variables 
and  C  and  D  are  real  variables  in  the  relational  expression 
(A  +  B)  .LE.  (C/D) 

A  would  be  added  to  B,  C  would  be  divided  by  D  and  the 
sum  of  A  +  B  would  be  converted  to  a  floating  point  number 
before  it  is  compared  to  the  result  of  the  division. 

27 

NOTE:  Integer  numbers  greater  than  2  -1  cannot  be  accu¬ 

rately  converted  to  floating  point  numbers.  Therefore, 
care  should  be  exercised  in  the  construction  of  relational 
expressions  of  mixed  modes. 

Examples : 

In  the  following  examples,  A  and  B  are  integer 
variables  and  C  and  D  are  real  variables. 

A. E.2  this  expression  has  the  value 

TRUE  only  if  the  integer  var- 
*  iable  A  is  equal  to  2. 

D.NE.6.9  this  expression  has  the  value 

TRUE  only  if  the  real  varia¬ 
ble  D  is  not  equal  to  6.9 

B. GE. (C+6.2)*(D/3)  this  expression  has  the  value 
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TRUE  only  If  the  variable 
B  lo  greater  or  equal  to 
the  value  of  the  expression 
(C+6.2)*(D/3.) .  In  accord¬ 
ance  with  the  rule  that  the 
appearance  of  any  floating 
point  element  causes  the 
entire  expression  to  be 
evaluated  In  the  floating 
point  mode,  the  following 
sequence  of  events  would 
occur  before  the  comparison 
Is  effected. 

1.  the  real  variable  C  Is 
added  to  the  real  constant 
6.2. 

2.  the  Integer  constant  3 
Is  floated  before  It  Is  used 
as  the  divisor  In  (D/3). 

3.  the  two  floating  point 
results  are  multiplied. 

4.  since  the  final  product 
Is  a  floating  point  number, 
the  Integer  variable  B  Is 
converted  to  a  real  number 
before  the  comparison  Is 


effected 


An  objeot  relational  expression  consists  of  two 
single  object  elements  separated  by  an  object  relational 
operator.  An  object  relational  expression  always  has  the 
value  TRUE  or  FALSE, 


Object  relational  operators  may  operate  only  on 
object  elements.  The  object  relational  operators  are: 

.IN.  Inclusion 

.IS.  equivalence 

The  periods  are  part  of  the  object  relational 
operator  notation  and  must  be  present. 


The  general  form  of  an  object  relational  ex¬ 
pression  which  uses  the  object  relational  operator  .IN.  Is 

A.IN.B 

where  A  Is  a  single  object  element  and  Is  declared  as 
follows: 

1.  In  a  PROGRAM  OBJECT  declaration.  If  the 
PROGRAM  OBJECT  declaration  refers  to  a 
single  variable,  A  Is  not  subscripted; 
but  If  the  declaration  specifies  an  array, 
then  A  must  be  subscripted. 
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2 


In  an  OBJECT  declaration  A  must  be  sub- 


crlpted  because  an  OBJECT  declaration 
always  specifies  a  group  of  elements. 

3.  In  a  CLASS  declaration  where  A  Is  a 
member  or  the  name  of  a  class.  A  must 
be  subscripted  because  It  represents  one 
object  within  the  class. 

and  B  Is  the  name  of  a  group  of  object  elements,  and 
therefore  Is  never  subscripted.  B  Is  declared  as  follows: 

1,  In  an  OBJECT  declaration 

2.  In  a  CLASS  declaration  where  B  Is  the 
name  of  a  class. 

If  A  and  B  are  any  object  elements  and  have  been 

declared  In  accordance  with  the  rules  stated  above,  then 
A.IN.B  Is  TRUE: 

1.  If  A  Is  a  subscripted  object  element 
(e.g.MERC(4) )  or  a  PROGRAM  OBJECT  that 
takes  on  the  value  of  the  object  element, 
and  B  Is  the  name  of  the  object  set  of 
which  A  Is  a  member. 

Example : 

OBJECT  MERC (10) 

MERC (4) .IN. MERC 

has  the  value  TRUE  because  MERC (4)  Is  a 
subscripted  object  element  that  Is  a  member 
of  the  object  set  MERC. 
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2.  If  A  Is  a  subscripted  object  element  (e.g. 
MERC (4))  or  a  PROGRAM  OBJECT  that  takes  on 
the  value  of  the  object  element  and  B  Is  a 
class  which  contains  the  object  set  (preceded 
or  not  preceded  by  EACH*)  of  which  A  Is  a 
member . 

Example: 

OBJECT  MERC (10) 

CLASS  (MODERATE)  CONTAINS  MERC 
or 

OBJECT  MERC (10) 

CLASS  (MODERATE)  CONTAINS  EACH*  MERC 
MERC ( 4 ) . IN .MODERATE 

has  the  value  TRUE  because  MERC (4)  is  a 
subscripted  object  element  that  Is  a  member 
of  the  class  MODERATE. 

3.  If  A  Is  a  subscripted  object  element  (e.g. 
MERC (4))  or  a  PROGRAM  OBJECT  that  takes  on 
the  value  of  the  object  element  and  B  Is  a 
class  which  contains  a  class  (preceded  or 
not  preceded  by  EACH*)  which  In  turn  contains 
the  object  set  of  which  A  (preceded  or  not 
preceded  by  EACH*)  Is  a  member. 

Example: 

OBJECT  MERC (10) 

CLASS  (MODERATE)  CONTAINS  EACH*MERC 
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CLASS  (PRICE)  CONTAINS  EACH*  MODERATE 
or 

OBJECT  MERC (10) 

CLASS  (MODERATE)  CONTAINS  EACH*MERC 

CLASS  (PRICE)  CONTAINS  MODERATE 
or 

OBJECT  MERC (10) 

CLASS  (MODERATE)  CONTAINS  MERC 

CLASS  (PRICE)  CONTAINS  EACH*  MODERATE 
or 

OBJECT  MERC (10) 

CLASS  (MODERATE)  CONTAINS  MERC 
CLASS  (PRICE)  CONTAINS  MODERATE 
MERC  (4)  .IN. PRICE 

has  the  value  TRUE  because  MERC(4)  is  a 
subscripted  object  element  that  Is  a 
member  of  the  class  MODERATE  which  In 
turn  Is  a  member  of  the  class  PRICE. 

4.  If  A  Is  a  subscripted  class  element  or 

a  PROGRAM  OBJECT  that  takes  on  Its  value, 

A  must  be  traced  back  to  a  subscripted 
object  element  In  order  to  determine  whether 
A.IN.B  Is  TRUE  as  shown  In  the  examples 
given  above. 

Examples : 

The  OBJECT  and  CLASS  declarations  which  are 
used  to  Illustrate  the  evaluation  of  .IN.  expressions 
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in  the  following  examples  are  identical  to  the  ones  used 
in  the  section  on  olasses,  in  order  to  permit  reference 
to  the  table  of  subscripts. 

OBJECT  FORD ( 10 ) , MERC ( 5 ) , LINC ( 3 ) , CHEV ( 10 ) , OLDS ( 5 ) , 
CADDY(3),PLY(10),D0DQE(5),CHRYS(3) 

CLASS (ECONOMY) CONTAINS  FORD, CHEV, PLY 
CLASS ( MODERATE ) CONTAINS  MERC , OLDS , DODGE 
CLASS ( PRESTIGE ) CONTAINS  LINC , CADDY , CHRYS 
CLASS (PRICE) CONTAINS  EC ONOMY, MODERATE, PRESTIOE 


CHEV(2) 

.IN. 

CHEV 

has 

the 

value 

TRUE 

CHEV(IO) 

.IN 

.  FORD 

has 

the 

value 

FALSE 

DODGE (2) 

.IN 

.  FORD 

has 

the 

value 

FALSE 

PLY (10) 

.IN. 

ECONOMY 

has 

the 

value 

TRUE 

ECONOMY ( 3 )  . 

IN.  PLY 

has 

the 

value 

TRUE 

OLDS (4) 

.IN. 

MODERATE 

has 

the 

va  lue 

TRUE 

D0DGE(5) 

.IN 

.  PRESTIOE 

has 

the 

value 

FALSE 

CADDY (3) 

.IN 

.  PRICE 

has 

the 

value 

TRUE 

PRICE(2) 

.IN 

.  MODERATE 

has 

the 

value 

TRUE 

PRICE(3) 

.IN 

.  MODERATE 

has 

the 

value 

FALSE 

OLDS (4) 

.IN. 

PRICE 

has 

the 

value 

TRUE 

PRICE(l) 

.IN 

.  PRESTIOE 

has 

the 

value 

FALSE 

PRESTIOE ( l) 

.IN.  PRICE 

has 

the 

value 

TRUE 

(because  PRESTIGE(l)  is 
equivalent  to  LINC(l)) 
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ECONOMY (3)  .IN.  CHEV 


haa  the  value  FALSE 


Tracing  ECONOMY(3)  back, ita  repreaentative  18 
a  subscripted  object  element,  PLY(l).  According  to  the 
rules  stated  above,  PLY(l).  IN.  CHEV  la  FALSE. 

PRICE(2)  .IN.  MERC  has  the  value  TRUE 

Tracing  PRICE(2)  back  It  is  repre¬ 
sented  by  MERC ( 1 ) ,  and  MERC(l)  .IN.  MERC  Is  TRUE. 

MERC (3)  .IN.  MERC  has  the  value  TRUE 

MERC (3)  is  a  subscripted  object  element  which 
Is  a  member  of  the  object  set  MERC. 

MODERATE^)  .IN.  PRICE  has  the  value  FALSE 

Since  olass  MODERATE  has  three  representatives, 
MERC(l),  OLDS(l),  and  DODOE(l),  the  maximum  subscript 
that  may  be  used  with  MODERATE  is  (3). 
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OBJECT  P0RD(10),MERC(5),LINC(3),CHEV(10),0LDS(5), 
CADDY(3) ,PLY(lO) ,DODGE(5) ,CHRYS(3) 


CLASS (ECONOMY)  CONTAINS  EACH*FORD,EACH*CHEV, EACH* PLY 
CLASS (MODERATE)  CONTAINS  EACH*MERC, EACH* OLDS, EACH*DODGE 
CLASS (PRESTIGE)  CONTAINS  EACH*LINC,EACH*CADDY,EACH*CHRYS 
CLASS(PRICE)  CONTAINS  EACH*ECONOMY,EACH*MODERATE, EACH* PRESTIGE 


CHEV(7)  .IN.  ECONOMY 
PLY (2)  .IN.  PRICE 
OLDS (3)  .IN.  PRESTIGE 
MODERATE (15) .IN.  DODGE 
PRESTIGE(4)  .IN.  LINC 
PRICE(36)  .IN.  OLDS 
PRICE(49)  .IN.  FORD 
PRICE  (50)  .IN.  CHRYS 
PRESTIGE ( 1 )  .IN.  PRICE 


has  the  value  TRUE 
has  the  value  TRUE 
has  the  value  FALSE 
has  the  value  TRUE 
has  the  value  FALSE 
has  the  value  TRUE 
has  the  value  FALSE 
has  the  value  FALSE 
has  the  value  TRUE 
because  PRESTIGE(l) 

Is  equivalent  to  LINC(l)) 


OBJECT  FORD ( 10 ) , MERC ( 5 ) , LINC ( 3 ) , CHEV ( 1 0 ) , OLDS ( 5 ) , 
CADDY ( 3 ) , PLY ( 10 ) , DODGE ( 5 ) , CHRYS ( 3 ) 


CLASS  (CAR)  CONTAINS  EACH*FORD, MERC, LINC, EACH*CHEV, 

OLDS, CADDY, EACH*PLY, DODGE, CHRYS 


CADDY(3)  .IN.  CAR 
OLDS (5)  .IN.  CAR 
CAR(l6)  .IN.  CHEV 
CAR(25)  .IN.  OLDS 
CAR (34)  .IN.  DODGE 


has  the  value  TRUE 
has  the  value  TRUE 
has  the  value  TRUE 
has  the  value  FALSE 
has  the  value  FALSE 
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OBJECT  MERC ( 5 ) , CADDY ( 3 ) , DODOE ( 5 ) , CHRYS ( 3 ) 

CLASS  (MODERATE)  CONTAINS  MERC, DODOE 

CLASS  (PRESTIGE)  CONTAINS  EACH* CADDY , EACH* CHRYS 

CLASS  (CAR)  CONTAINS  EACH*MODERATE, PRESTIGE 


MERC (4)  .IN 

.  MODERATE 

has 

the 

value 

TRUE 

CHRYS (3)  .IN.  CAR 

has 

the 

value 

TRUE 

PRESTIGE (2) 

.IN.  CHRYS 

has 

the 

value 

FALSE 

PRESTIGE(6) 

.IN.  CHRYS 

has 

the 

value 

TRUE 

MODERATE ( 1 ) 

.IN.  DODGE 

has 

the 

value 

FALSE 

CAR(2)  .IN. 

DODGE 

has 

the 

value 

TRUE 

CAR (3)  .IN. 

CHRYS 

has 

the 

value 

FALSE 

The  general  form  of  an  object  relational  ex¬ 
pression  which  uses  the  object  relational  operator  .IS. 

Is : 

A .IS .B 

where  A  and  B  are  Individual  object  elements  and  are 
declared  as  follows: 

1.  In  a  PROORAM  OBJECT  declaration.  If 

the  PROGRAM  OBJECT  declaration  refers  to  a 
single  variable,  the  single  variable  (A  or  B) 

Is  not  subscripted]  but  If  the  declaration 
specifies  an  array,  A  and  B  must  be  subscripted. 


90 


2,  In  an  OBJECT  declaration  A  or  B  must 
be  subscripted. 

3.  In  a  CLASS  declaration  where  A  or  B 

are  members  of  a  class  and  therefore  must 
be  subscripted. 

If  A  and  B  are  any  object  elements  and  have 
been  declared  In  accordance  with  the  rules  stated  above, 
.IS.  Is  defined  as  follows: 

A.IS.B  has  the  value  TRUE 

only  If  object  ele¬ 
ment  A  Is  Identical 
to  object  element  B; 
otherwise  it  has  the 
value  FALSE 

Examples : 

OBJECT  FORD ( 10) ,MERC(5) ,LINC(3) ,CHEV(10) ,0LDS(5) , 
CADDY(3),PLY(10),D0D0E(5),CHRYS(3) 

CLASS (ECONOMY) CONTAINS  FORD, CHEV, PLY 
CLASS (MODERATE)  CONTAINS  MERC, OLDS, DODGE 
CLASS (PRESTIGE)  CONTAINS  LINC , CADDY , CHRYS 
CLASS  (PRICE)  CONTAINS  ^ECONOMY,  MODERATE,  PRESTIGE 

FORD (l). IS.  ECONOMY ( 1 )  has  the  value  TRUE 
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PRICE(l)  .IS.  FORD(l) 
DODOE(4)  .IS.  MODERATED) 
DODOE(l)  .IS.  MODERATE^) 
LINC(l)  .IS.  PRICE(3) 
CHEV(l)  .IS.  PRICE(l) 


has  the  value  TRUE 
has  the  value  FALSE 
has  the  value  TRUE 
has  the  value  TRUE 
has  the  value  FALSE 


OBJECT  MERC ( 5 ) , CADDY ( 3 ) , DODGE ( 5 ) , CHRYS ( 3 ) 

CLASS (MODERATE)  CONTAINS  MERC, DODGE 

CLASS ( PRESTIGE) CONTAINS  EACH*CADDY,EACH*CHRYS 

CLASS (CAR)  CONTAINS  EACH*MODERATE, PRESTIGE 

DODGE(l)  .IS.  MODERATE (2)  has  the  value  TRUE 

CHRYS(3)  .IS.  PRESTIGE(6)  has  the  value  TRUE 

MERC ( 1 )  .IS.  CAR(l)  has  the  value  TRUE 

CADDY (3)  .IS.  CAR(3)  has  the  value  FALSE 

CAR(l)  .IS.  MERC (2)  has  the  value  FALSE 

CAR(l)  .IS.  MERC ( 1 )  has  the  value  TRUE 


2.  Arithmetic  Statements 

The  arithmetic  statement  defines  a  numerical 
calculation.  Its  general  form  Is 

A  »  B 

where  A  Is  a  real  or  Integer  variable,  subscripted  or  not 
subscripted,  and  B  is  an  arithmetic  expression.  The 
arithmetic  statement  has  two  functions.  First,  it  causes 
the  computation  of  the  expression  to  the  right  of  the 
equals  symbol  and  second,  it  causes  the  value  of  the  var¬ 
iable  to  the  left  of  the  equals  symbol  to  be  replaced  by 
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the  result  of  the  calculation 


In  MILITRAN,  the  expression  to  the  right  of  the 
equals  symbol  Is  converted,  after  It  has  been  evaluated, 
to  the  mode  of  the  variable  to  the  left  of  the  equals 
symbol  with  the  following  exception: 

When  the  expression  to  the  right  of  the  equals 
symbol  Is  a  single  subscripted  variable  which  denotes  a 
member  of  a  vector  whose  retrieval  form  Is  that  of  the 
vector  rather  than  the  component  name,  the  expression  Is 
not  converted  to  the  mode  of  the  variable  to  the  left 
of  the  equals  symbol.  The  value  Is  stored  without  being 
converted. 

Examples : 

In  the  following  examples,  A  and  B  are  Integer 
variables,  C  and  D  are  real  variables,  E  Is  the  name  of  a 
vector  whose  mode  Is  real  and  whose  component  arrays  are 
also  all  of  real  mode. 

A  ■  B  replace  A  with  the  current  value  of  B. 

A  =  C  truncate  C  to  an  Integer,  convert  It  to  an 

Integer  constant  and  replace  the  value  of  A 
with  the  value  of  C. 
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oonvert  B  to  a  real  number  and  replace  D 
with  the  value  of  B. 


B  ■  A*(C/2)  the  appearance  of  the  real  variable  C 

causes  the  A  and  2  to  be  converted 

to  real  numbers  before  the  value  of  the 
expression  Is  computed.  The  result  Is  then 
converted  to  Integer  mode  and  replaces  the 
previous  value  of  B, 


B  ■  3. 4/6. 4  after  this  arithmetic  statement  has  been 

executed,  B  will  have  a  value  of  0. 

A  -  E(5>B)  replace  A  with  the  current  value  of  E(5,B). 

Do  not  convert  the  value  which  is  a  real 
number  to  an  integer. 


3 .  Logical  Statements 

The  logical  statement  defines  a  logical  calcula¬ 
tion.  Its  form  Is: 

A  -  B 

were  A  Is  a  logical  variable,  subscripted  or  not  sub- 
crlpted  and  B  Is  a  logical  expression.  The  logical 
statement  computes  the  value  of  the  logical  expression 
(either  TRUE  or  FALSE)  to  the  right  of  the  equal  symbol 
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and  replaces  the  previous  value  of  the  logical  variable  to 
the  left  of  the  equal  symbol. 


Examples : 


A  -  TRUE 

store  the  logical  constant  TRUE  In  A 

B  »  . NOT . C 

If  C  Is  TRUE  store  the  value  FALSE 

In  B;  If  C  Is  FALSE  store  the  value 

TRUE  In  B. 

L  »  X.AND.Y 

If  both  X  and  Y  are  TRUE,  L  will 

assume  the  value  TRUE;  If  either 

or  both  X  and  Y  are  FALSE,  then 

L  will  assume  the  value  FALSE. 

L  -  .NOT. (X.AND.Y) 

both  X  and  Y  must  be  TRUE  In 

order  for  L  to  assume  the  value 

FALSE. 

P  -  (X.O.Y).OR.B 

If  the  numerical  value  of  X 

Is  greater  than  the  numerical 

value  of  Y  or  B  Is  TRUE,  then 

P  assumes  the  value  TRUE.  P 

assumes  a  value  of  FALSE  only  If 

the  numerical  value  of  X  Is  less 

than  the  value  of  Y,  and  B  Is 

FALSE. 
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H  -  (A.E.D).EXOR.(P.IN.O)  if  the  numerical  value  of  A 

is  equal  to  the  numerical 
value  of  D  and  P  le  not  a 
member  of  set  0,  then  H  will 
assume  a  value  of  TRUE;  if  the 
numerical  value  of  A  is  not 
equal  to  the  numerical  value 
of  D  and  P  is  a  member  of 
set  0,  then  H  will  also  assume 
a  value  of  TRUE.  Otherwise, 

H  assumes  a  value  of  FALSE, 


96 


CHAPTER  V 


CONTROL  STATEMENTS 


During  the  execution  of  a  MILITRAN  program,  In¬ 
structions  are  normally  taken  from  sequentially  ascending 
locations.  However,  the  execution  of  Instructions  does  not 
have  to  occur  sequentially.  It  Is  possible  through  the  use 
of  sequential  operators  or  control  statements  to  alter  the 
process  of  sequential  execution  and  to  cause  the  computer  to 
repeat,  skip,  or  Interrupt  a  sequence  of  MILITRAN  statements. 
In  this  way  It  Is  possible  to  modify  the  sequence  In  which 
any  statement  or  block  of  statements  Is  executed.  By  pro¬ 
viding  a  program  with  the  ability  to  control  Its  own  course 
of  execution,  these  statements  greatly  Increase  the  scope 
of  the  system. 

1,  GO  TO 

00  TO  Is  used  to  unconditionally  alter  the  normal 
sequential  execution  of  statements.  It  Indicates  the  state¬ 
ment  that  Is  to  be  executed  next. 

The  form  of  a  00  TO  statement  Is: 

00  TO  s 

where  s  Is  the  name  of  the  next  statement  to  be  executed. 
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Examples : 


00  TO  ACT  1100 
00  TO  B702 
00  TO  NT7 

Use  of  the  00  TO  statement  Is  shown  in  the 
following  coding  example. 


Statement  Label 

MILITRAN  Statement 

ACT  100 

RATE  -  7.0 

ACT  101 

TIME  -  2.0 

ACT  102 

00  TO  ACT  104 

ACT  103 

RATE  -5.0 

ACT  104 

DIST  «  RATE*TIME 

When  control  reaches  statement  ACT  100,  RATE 
will  be  given  the  value  7.0.  Then  TIME  will  be  given  the 


value  2.0.  The  next  statement, 

QO  TO  ACT  104  will  cause 

statement  ACT  103  to  be  skipped 

and  statement  ACT  104  will 

be  executed  next,  giving  DIST  a 

value  of  14.0. 

2 .  PAUSE 

The  PAUSE  statement  causes  the  computer  to  come 
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to  a  temporary  halt.  If  the  start  key  Is  pressed,  the 
object  program  will  resume  execution  with  the  next 
MILITRAN  statement,  PAUSE  is  written  as: 

PAUSE  J 

where  J  is  any  unsigned  octal  integer  of  1  to  4  digits, 
and  may  be  omitted,  Ibis  number  will  be  shown  on  the 
computer  console  when  the  computer  stops. 

Examples : 


PAUSE  1 
PAUSE 


3.  STOP 


Hie  STOP  statement  causes  the  immediate  termination 
of  the  object  program.  After  STOP  a  restart  cannot  occur. 

Hie  STOP  statement  should  occur  at  the  logical  end  of  the 
program  rather  than  the  physical  end.  More  than  one  STOP 
statement  may  be  used  in  a  program.  The  form  of  the  STOP 
statement  is: 


STOP 


4.  IF  Statement 

Hie  IP  statement  determines  the  statement  to  be 
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executed  next  dependent  on  the  value  of  a  logical  ex 
presslon.  It  1b  written  as  follows: 


IF(b),  ST,Sp 

where  b  la  a  logical  expression  and  ST  and  Sp  are  state¬ 
ment  labels.  If  the  value  of  the  logical  expression  (b)  is 
TRUE,  control  will  be  transferred  to  the  statement  labelled 
S^,;  If  the  value  Is  FALSE,  control  will  be  transferred  to  the 
statement  labelled  Sp.  If  the  second  label  Is  omitted,  the 
next  program  statement  will  be  executed. 

Examples : 


IF ( TIME .GE . HORIZON ), ENDCYCLE , DC 100 

If  the  value  of  TIME  Is  greater  or  equal  to  the 
value  of  HORIZON,  control  will  be  transferred  to  the  state¬ 
ment  labelled  ENDCYCLE,  If  the  logical  expression  is  false, 
control  will  be  transferred  to  statement  DC100. 

IF (TIME ,OE .HORIZON) , ENDCYCLE 

T  =  A/3.4 

If  the  value  of  the  logical  expression  Is  TRUE, 
control  will  be  transferred  to  ENDCYCLE,  Otherwise,  the 
next  statement  will  be  executed. 
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5.  UNLESS  Statement 


The  UNLESS  Statement  also  determines  the  state¬ 
ment  to  be  executed  next,  dependent  on  the  value  of  a  logical 
expression.  It  Is  written  as  follows: 

UNLESS (b),  Sp,ST 

where  b  Is  a  logical  expression  and  Sp  and  ST  are  state¬ 
ment  labels.  If  the  value  of  the  logical  expression  (b) 

Is  FALSE,  control  will  be  transferred  to  the  statement 

labelled  S  ;  If  the  value  is  TRUE,  control  will  be  trans- 
F 

ferred  to  the  statement  labelled  S,p.  If  the  second  label 
Is  omitted,  the  next  program  statement  will  be  executed. 

Examples : 


UNLESS (PAST  REPORT+REPORT  INTERVAL. LE. TIME) ,A100,A250 

If  the  value  of  the  logical  expression  Is  FALSE, 
control  will  be  transferred  to  statement  A100;  If  the  ex¬ 
pression  is  TRUE,  control  will  be  transferred  to  statement 
A250. 


IF ( TIME . QE . HORIZON ) , ENDCYCLE 

UNLESS (REPORT  INTERVAL. LE. TIME) ,RPER2000 


ENDCYCLE 
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Control  will  be  transferred  to  ENDCYCLE  If 
TIME  Is  greater  than  or  equal  to  HORIZON.  If  the  first 
statement  Is  FALSE,  the  succeeding  statement  will  be  eval¬ 
uated  and  If  It  TRUE,  ENDCYCLE  will  be  executed.  If  both 
statements  are  FALSE,  control  will  be  transferred  to  the 
statement  labelled  RPER2000. 

6.  DO  Statement 

The  technique  of  repeating  a  section  of  a  program, 
with  some  type  of  modification  between  repetitions.  Is  called 
looping.  The  DO  statement  Is  a  powerful  tool  which  permits 
a  significant  reduction  In  the  number  of  Instructions  required 
to  perform  a  given  procedure  and  also  greatly  simplifies  the 
programming  of  loops .  MILITRAN  provides  two  forms  of  the  DO 
statement . 

Form  1 

DO(s )  UNTIL  b,  n  -  e-^eg 

where  s  Is  a  statement  label,  b  Is  a  logical  expression,  n 
is  an  arithmetic  variable,  either  subscripted  or  non-sub- 
scrlpted,  e^,e2  are  arithmetic  expressions.  When  e2  Is 
omitted  it  is  assumed  «*  1 .  When  e^  is  omitted,  both  e2  and 
the  equals  sign  must  be  omitted  and  e^  and  e2  are  assumed 
m  1.  When  n  is  omitted,  the  statement  ends  with  the  Boolean 
condition  and  looping  continues  until  b.EQV.TRUE.  Ihe 
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logical  expression  b  is  evaluated  before  each  iteration 


Form  1  of  the  DO  statement  is  a  command  to  iterate 
through  the  statement  labelled  s  until  the  logical  expression 
b  is  TRUE.  The  first  time,  the  statements  are  executed  with 
n  equal  to  e^.  For  each  succeeding  iteration,  n  is  increased 
by  eg.  When  the  logical  expression  b  assumes  the  value  TRUE, 
control  passes  to  the  statement  following  the  last  statement 
in  the  range  of  the  DO  -  the  statement  immediately  following 
the  statement  labelled  s. 

This  form  of  the  DO  statement  has  three  functions: 

1.  It  establishes  an  index  (n)  which  takes  on 
a  new  value  for  each  iteration.  This  index 
may  be  used  as  a  subscript  or  in  computations. 

2.  It  causes  looping  through  any  desired 
series  of  statements,  as  many  times  as 
required . 

3.  It  increases  the  index  by  any  specified 
increment  for  each  separate  iteration 
through  the  series  of  statements  in  the 
loop. 
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As  an  example,  consider  the  following  program: 


Statement  Label 


Statement 


ADD  50 


ADD40 


REAL  A ( 10) ,B( 10) 

DO (ADD50) UNTIL  N1.G.10,N1«1,1 
A ( N1 )  =  B(N1)*2 


The  first  statement  reserves  space  for  two 


one-dimensional  arrays,  A  and  B,  The  DO  statement,  statement 
ADD40,  is  a  command  to  execute  the  following  statements 
up  to  and  including  statement  ADD50.  The  DO  loop  is  equiva¬ 
lent  to  execution  of  the  statements 


A  ( 1 )  =  B  ( 1 )  *2 
A(2)  =  B(2)*2 
A(3)  -  B(3)*2 

* 

A ( 10)  -  B( 10) *2 

When  the  DO  loop  is  entered  (statement  ADD40)  N1 


la  set  to  1,  the  logical  expression  Nl.G.lO  is  evaluated  and 
since  it  is  FALSE  statement  ADD50  is  executed.  N1  is  increased 
by  1,  the  logical  expression  is  evaluated  again  and  the  loop 
will  continue  until  N1  assumes  a  value  of  11.  The  program 
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will  then  oontinue  with  the  statement  following  statement 
ADD50. 


The  following  is  a  comparison  of  statement  ADD40 
with  the  general  form  of  the  DO,  and  an  introduction  of  some 


of 

the  terms 

used  in 

discussing  DO 

statements , 

DO 

(a) 

UNTIL 

b. 

n  ■ 

V 

e2 

DO 

(ADD50) 

UNTIL 

Nl.0.10, 

N1  « 

1, 

1 

Range 

Terminating 

Condition 

Index 

Initial 

Value 

Increment 

Range:  The  range  is  the  series  of  statements  to  be 

executed  repeatedly.  It  starts  with  the  DO 
and  includes  all  the  statements  following 
the  DO  up  to  and  including  statement  (s).  In 
the  example  the  range  consists  of  statements 
ADD40  and  ADD50. 


Terminating  The  terminating  condition  is  the  logical 
Condition: 

expression  which  controls  the  number  of 
iterations  to  be  performed.  When  the 
logical  expression  assumes  a  value  of  TRUE, 
the  DO  is  satisfied.  In  this  case,  as  soon 
as  N1  assumes  a  value  of  11,  execution  of  the 
range  ceases. 


Index: 


The  index  is  any  arithmetic  variable.  The 
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Initial 

Value* 


Increment  * 


Examples  t 


LBL 


index  will  change  for  each  execution  of  the 
range.  In  the  example,  the  index  N1  is  also 
used  as  a  subscript,  in  another  problem  it 
might  be  used  in  computations,  or  might  not 
be  used  in  the  range  at  all. 

The  initial  value  may  be  any  arithmetic  ex¬ 
pression,  and  is  the  value  assigned  the  index 
for  the  first  execution  of  the  range.  In  the 
example,  the  initial  value  is  1  -  an  integer 
constant.  In  another  problem  it  might  be  a 
real  constant  or  a  subscripted  arithmetic 
variable. 

The  increment  (any  arithmetic  expression)  is 
the  amount  by  which  the  value  of  the  index 
will  be  increased  after  each  execution  of 
the  range. 


In  the  next  example,  the  range  of  the  DO  loop 
consists  of  one  statement,  the  DO  statement  itself. 
INTEGER  A (100) 

D0(LBL)UNTIL(A(I).E.6).0R. (I. 0.100), 1-1,1 
The  DO  statement  (LBL)  is  a  command  to  cycle 
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through  the  array  named  "A"  and  obtain  the  first  entry 
equal  to  6.  The  logical  expression  (I.Q.100)  is  necessary 
in  case  array  "A"  does  not  contain  an  entry  equal  to  6. 

In  the  following  example,  the  terminating  condition 
is  a  logical  expression  which  includes  an  object  relational 
expression. 

PROGRAM  OBJECT  B(lOO) 

LBL  DO(LBL)UNTIL(B( I ) . IN .CAR) .OR . ( I .0 . 100) , 1-1 , 1 

This  DO  statement  will  cycle  through  the  array 
names  "B"  and  will  obtain  the  first  entry  which  is  in  the 
class  CAR. 

Form  2 


The  second  form  of  the  DO  statement  operates  on 
object  elements  exclusively.  It  is  written  as 

DO  (s)  FOR  a  .IN .b 

where  s  is  a  statement  label,  a  is  a  single  variable  which 
has  been  declared  in  a  PROGRAM  OBJECT  declaration  and  b  is 
either  the  name  of  a  class  as  specified  in  a  CLASS  declara¬ 
tion  or  the  name  of  an  object  as  specified  in  an  OBJECT 
declaration.  Names  a  and  b  are  never  subscripted. 

This  form  of  the  DO  statement  is  a  command  to 
iterate  through  the  statement  labelled  s.  The  first  time. 
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variable  "a"  la  aet  to  the  identity  of  the  first  member  of 
"b",  For  auoceeding  iterations,  "a"  aaaumes  in  turn  the  iden 
tity  of  all  raembera  of  "b".  Iteration  ends  when  all  members 
of  "b"  have  been  covered  sequentially. 

As  an  example,  consider  the  following  program: 

Statement  Label  Statement 

INTEGER  AGE (CAR) ,1, J 
PROGRAM  OBJECT  A 


LX2 

J  =  0 

LX3 

I  -  0 

LX4 

DO ( LX7 )  FOR  A. IN. CAR 

LX5 

UNLESS (AGE( A ) ,GE.5 ) ,LX7 

LX6 

1  =  1  +  1 

LX7 

J  =  J  +  1 

Thia  program  counts  both  the  total  number  of  cars 
and  those  cars  which  are  5  years  or  older. 

1.  The  first  statement  reserves  space  for  one 
dimensional  array  "AGE",  whose  dimension  is 
equal  to  the  number  of  the  members  in  class 
CARj  and  also  declares  I  and  J  to  be  integer 
variables . 

2.  The  second  statement  declares  "A"  to  be  a 
single  variable  which  will  assume  the 
identity  of  an  object. 
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3.  LX2  seta  the  value  of  J  to  zero;  LX3  sets  the 
value  of  I  to  zero. 

4.  LX4  Is  a  command  to  execute  the  following  state- 
ments  up  to  and  Including  the  statement  named 
LX7 .  When  the  DO  loop  la  entered  A  la  aet  to 
the  Identity  of  the  flrat  member  of  class  CAR. 

5.  LX 5  retrieves  the  age  of  the  flrat  car  and 
compares  It  to  5.  If  It  la  less  than  5,  control 
passes  to  the  statement  LX7 ;  If  the  age  la  equal 
to  or  greater  than  5i  control  passes  to  LX6 . 

6.  LX6  Increments  the  counter  "I"  by  one; 

LX7  Increments  counter  "J"  by  one. 

7.  After  statement  LX7  has  been  executed,  control 
Is  transferred  to  statement  LX4.  The  second 
time  through  the  loop,  A  la  set  to  the  Iden¬ 
tity  of  the  second  member  of  class  CAR  and 

Its  age  Is  retrieved  and  evaluated.  The  loop¬ 
ing  continues  until  all  members  of  the  class 
have  been  evaluated. 

Restrictions  on  the  use  of  DO  statements 

1.  a  DO  loop  may  be  contained  within  the  range 
of  another  DO  loop.  When  this  situation  occurs,  all  of  the 
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statements  in  the  range  of  the  inner  DO  must  be  within  the 
range  of  outer  DO. 


For  examples 


DO 

DO 

DO 


is  a  permitted  configuration  (the  brackets  Indicate  the  range 
of  the  DO's),  but: 

-  DO 

, - - -  DO 


is  not  a  permitted  configuration.  Transfers  of  control  are 
permitted  both  from  inside  the  range  of  a  DO  loop  to  out¬ 
side  its  range  and  from  outside  the  range  to  inside. 

2.  the  last  statement  in  the  range  of  a  DO  loop 
cannot  be  a  GO  TO  statement,  an  IF  statement  which  has  two 
labels  or  an  UNLESS  statement  which  has  two  labels.  If  it  is 
necessary  to  end  a  DO  loop  with  any  of  these  statements,  the 
CONTINUE  statement  must  be  uSed  to  terminate  the  range  of  the 
DO  loop. 
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7.  CONTINUE 


CONTINUE  is  a  dummy  statement  which  does  not 
generate  any  instructions  in  the  object  program.  It  must 
be  used  to  terminate  the  range  of  a  DO  loop  which  would 
otherwise  end  with  a  00  TO  statement  or  the  forms  IF  or 
UNLESS  statements  which  have  two  labels.  CONTINUE  is  also 
used  as  the  last  statement  of  a  DO  loop  when  it  is  desired 
conditionally  to  skip  the  several  statements  in  the  range 
and  proceed  with  the  next  iteration  of  the  loop. 

The  form  of  the  CONTINUE  statement  is: 

CONTINUE 


Example : 

Statement  Label  Statement 

REAL  A(lO),B(lO) 

ADD40  DO (ADD70 )UNTIL  N1.0.10,N1«1,1 

ADD50  A(N1)=B(N1)*2 

ADD60  GO  TO  ADD100 

ADD70  CONTINUE 

In  the  above  example,  if  ADD60  were  the  last  state¬ 
ment  in  the  range  the  sequence  at  ADD100  would  have  no  way 
to  re-enter  the  loop.  The  CONTINUE  statement  at  ADD70 
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provides  suoh  a  re-entry  point 


The  next  example  shows  how  one  statement  In  the 
range  may  be  conditionally  skipped  using  a  CONTINUE  state¬ 
ment  , 


ement  Label 

Statement 

INTEGER  AGE(CAR),I,J 

PROGRAM  OBJECT  A 

LX2 

J  =  0 

LX3 

1  =  0 

LX4 

D0(LX8)  FOR  A. IN. CAR 

LX5 

J  =  J  +  1 

LX6 

UNLESS (AGE( A) .GE.5) > 

LX7 

1  =  1  +  1 

LXQ 

CONTINUE 

Use  of  the  CONTINUE  statement  is  by  no  means 
limited  to  defining  the  ranges  of  DO  loops.  Any  point 
In  a  program  may  be  defined  by  means  of  a  CONTINUE  statement. 
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CHAPTER  VI 


LISTS  AWD  LIST  PROCESSING  STATEMENTS 


Hie  LIST  declaration  and  Its  associated  list 
processing  statements  have  been  provided  to  facilitate 
the  creation,  maintenance,  and  processing  of  the  various 
elements  In  a  simulation.  Concise  MILITRAN  statements 
eliminate  the  need  for  the  complex  iterative  coding  which 
is  normally  required  to  maintain  the  current  status  of  the 
elements  in  a  simulation. 

1.  LIST 

A  MILITRAN  LIST  is  a  one  dimensional  vector  whose 
components  may  be  processed  by  a  special  group  of  system 
routines  -  the  list  processing  statements.  Hie  LIST  state¬ 
ment  is  written  as 

LIST 

where  n  is  the  name  of  the  LIST;  ci,02'*** *ci  are  the  031,1168 

of  the  LIST  components,  all  of  which  are  associated  with  the 
name  "n",  and  d  is  the  dimension  associated  with  each  com¬ 
ponent  . 
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The  LIST  statement  only  declares  the  dimension 
of  the  LIST)  the  rules  for  declaring  the  modes  of  a  list 
and  Its  eomponents  are  the  same  as  those  for  declaring  the 
modes  of  a  vector  and  Its  components* 

Example  t 

LIST  SHIPS ( (DESTROYER, CRUISER, CARRIER ) , 10 ) 


This  statement  defines  a  LIST  named  SHIPS,  which 
has  3  components  -  DESTROYER,  CRUISER,  and  CARRIER.  Each 
component  has  a  dimension  of  10  —  resulting  In  30  locations 
reserved  for  the  LIST  SHIPS. 

2.  LIST  PROCESSING  STATEMENTS 


The  list  processing  statements  are  used  to  main¬ 
tain  the  current  status  of  the  various  elements  In  a  simu¬ 
lation. 

LIST  entries  may  be  created  by  means  of  PLACE  or 
PLACE  ENTRY  statements;  modified  by  REPLACE  or  REPLACE  ENTRY 
statements;  destroyed  by  REMOVE  or  REMOVE  ENTRY  statements 
and  located  by  the  system  functions  MINIMUM  INDEX  and  RANDOM 
INDEX.  In  addition,  the  elements  In  a  LIST  may  also  be  oper- 
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a ted  on  by  the  regular  MILITRAN  data  processing  statements. 

Before  discussing  the  list  processing  statements 
In  detail,  it  is  neoessary  to  clarify  the  meaning  of  some  of 
the  terms  used  in  connection  with  these  statements. 

When  a  list  processing  statement  or  its  definition 
refers  to  an  entry,  it  is  referring  to  corresponding  elements 
in  each  component  of  the  LIST.  For  example,  if  a  LIST  is  de¬ 
clared  as: 


LIST  A((B,C,D,E),4) 


there  are  four  components  -  B,C,D,  and  E,  each  of  which  con¬ 
tains  four  elements.  An  entry  in  LIST  A  Is  a  group  of  four 
corresponding  elements  such  as: 


B(1),C(1),D(1), 

B(2),C(2),D(2), 

B(3),C(3),D(3), 

B(4),C(4),D(4), 


E(l) 

- 

1st 

E(2) 

- 

2nd 

E(3) 

- 

3rd 

E(lt) 

- 

4th 

entry  of  LIST  A 
entry  of  LIST  A 
entry  of  LIST  A 
entry  of  LIST  A 


The  list  processing  statements  always  operate  on 
entries.  If  a  LIST  has  only  one  component,  then  entry  and 
element  are  synonymous. 
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Every  MXLXTRAN  LIST  is  associated  with  an  Integer 
value  whloh  represents  the  length  of  the  LIST.  The  length 
of  the  LIST  refers  to  the  eurrent  number  of  entries  In  the 
LIST. 

It  Is  Important  to  distinguish  between  the  length 
of  the  LIST  and  Its  dimension.  The  dimension  refers  to  the 
number  of  locations  In  computer  storage  which  are  reserved 
by  the  LIST  declaration  for  the  LIST  entries.  The  dimension 
remains  constant  throughout  execution  of  the  program.  The 
length  of  the  LIST  changes  -  it  is  automatically  updated  by 
those  list  processing  statements  which  create  or  destroy  en¬ 
tries.  Hie  list  processing  statements  which  modify  existing 
entries  do  not  change  the  length  of  the  LIST. 

The  compilation  phase  of  MILITRAN  sets  the  length 
of  any  declared  LISTS  to  zero.  If  all  the  entries  In  a  LIST 
are  created  by  the  list  processing  statements,  the  length  of 
the  LIST  will  be  created  automatically.  However,  If  a  LIST 
Is  created  by  reading  data  Into  It,  the  Initial  length  must 
be  set  by  the  program  as  described  below  under  RESET  LENGTH. 


As  stated  above,  the  list  processing  statements 
only  operate  on  entries.  If  It  Is  necessary  to  modify  or 
retrieve  an  element  within  a  single  component  of  a  multi- 
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oomponent  LIST,  the  element  may  be  subscripted  In  exactly 
the  same  manner  as  are  elements  In  a  vector. 


In  the  explanation  of  the  list  processing  state¬ 
ments,  the  following  notation  will  be  used: 
n  -  Is  the  name  of  a  LIST  which  Is  being  Interrogated 
or  In  whleh  data  Is  being  entered,  modified,  or 
removed, 

k  -  refers  to  an  integer  constant.  Integer  variable, 

or  an  arithmetic  expression  which  after  evaluation 
will  return  an  integer  value.  The  value  represents 
the  Index  of  entry  (the  position  of  entry  in  the  LIST) 
for  LIST  n. 

m  -  is  the  name  of  a  LIST  from  which  data  is  being  re¬ 
trieved, 

J  -  is  an  integer  value,  as  described  under  k,  which 
represents  the  index  of  entry  for  LIST  m. 
e  -  is  any  expression  which  is  going  to  be  entered  in  a 

component  of  a  LIST  or  will  modify  an  existing  element 
in  a  LIST,  It  must  be  compatible  with  the  mode  of  the 
oomponent  as  it  is  defined  in  the  mode  declaration, 
b  -  is  any  logical  expression. 

p  -  is  any  integer  constant,  integer  value,  or  arithmetic 

expression  which  after  evaluation  will  return  an  integer 
value.  The  value  represents  the  length  of  a  LIST. 
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LENGTH 


LENGTH  (n) 


where  n  Is  the  name  of  a  LIST,  returns  the  current  number 
(integer)  of  entries  in  LIST  "n", 

The  LENGTH  function  provides  a  convenient  means 
of  determining  when  all  the  entries  in  a  list  have  been 
eliminated  from  the  battle.  For  example, 

A101  IF  (LENGTH (GREEN  ARMY),E.O),  B100 
A102  (continue  with  processing) 

When  the  LENGTH  of  GREEN  ARMY  assumes  a  value  of  0,  all  the 
entries  in  GREEN  ARMY  have  been  eliminated  and  control  is 
transferred  to  statement  B100,  If  all  the  entries  have  not 
been  eliminated,  the  program  continues  sequentially  with 
statement  A102. 

RESET  LENGTH 


RESET  LENGTH  (n)  TO  p 

when  n  is  the  name  of  a  LIST  and  p  is  an  integer  constant, 
integer  variable,  or  an  arithmetic  expression  which  after 
evaluation  will  return  an  Integer  value,  unconditionally 
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sets  the  length  of  LIST  "n"  to  the  value  represented  by 

H_  ft 

P  . 

When  the  entries  In  a  LIST  are  a  function  of  In¬ 
put,  i.e.,  the  data  Is  read  directly  into  a  LIST,  the  RESET 
LENGTH  statement  must  be  given  before  any  processing  is 
carried  out  on  the  LIST.  For  example,  if  a  LIST  is  declared 
as  follows: 


LIST  A  ( (B,C,D),3 ) 

and  an  input  statement  reads  in  3  entries,  the  length  of  the 
LIST  should  be  set  as  follows: 


RESET  LENOTH(A)  TO  3 

If  the  dimension  of  the  list  is  a  "symbolic  dimen¬ 
sion",  such  as: 

LIST  A ( (B,C,D),X) 


the  value  of  X  would  also  have  to  appear  in  the  input.  After 
the  value  of  X  has  been  read  in,  the  statement: 

RESET  LENGTH (A)  TO  X 

would  set  the  length  of  A  to  X. 
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PLACE 


PLACE(e^, • • • i®^)  IN  n 

where  e^,  eg,,,.,e^  are  any  expressions  and  n  Is  the  name 

of  a  LIST,  evaluates  the  expressions  represented  by  each 
e,  enters  the  value  of  the  corresponding  e  In  each  of  the 
components  of  LIST  n,  and  then  automatically  updates  the 
length  of  LIST  n. 

el'  e2' •••'ei  rau8^  Be  compatible  with  the  com¬ 
ponents  of  the  LIST  as  they  are  defined  In  the  LIST  and 
mode  declarations  both  as  to  number  and  mode,  Por  example. 
If  a  LIST  Is  declared  as  follows: 


LIST  SHIPS  (TYPE, SPEED, RANGE), 4) 


and  the  mode  declarations  state: 


PROGRAM  OBJECT  SHIPS,  TYPE 
REAL  SPEED,  RANGE. 


the  modes  of  the  expressions  In  the  statement: 


PLACE (SUBMARINE, SS PEED, SRANGE)  IN  SHIPS 
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must  be  declared  as  follows: 


PROGRAM  OBJECT  SUBMARINE 
REAL  SSPEED,  S RANGE 

If  the  list  contained  4  entries  before  the  PLACE 
statement  was  encountered,  the  length  of  the  list  would  be 
updated  to  5  after  execution  of  the  PLACE  statement. 

REMOVE  ENTRY 


REMOVE  ENTRY  n  (k) 

where  n  Is  the  name  of  a  LIST  and  k  Is  an  Integer  constant 
or  Integer  variable  which  designates  an  entry  In  the  LIST, 
causes  the  entry  represented  by  k  to  be  removed  from  LIST 
n  and  then  automatically  updates  the  length  of  LIST  n. 

For  example.  If  LIST  Z  has  three  components  - 
A,  B,  and  C  —  and  the  current  length  of  LIST  Z  Is  6,  the 
statement 

REMOVE  ENTRY  Z(X)  (where  X  has  assumed  a  value  of 

will  cause  the  4th  entry  to  be  removed  from  LIST  Z,  and  the 
length  updated  to  5. 

NOTE:  Ihe  LIST  Is  also  compressed  to  remove  the  blank  entry. 
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PLACE  ENTRY 


PLACE  ENTRY  m  (j)  In  n 

causes  the  J  entry  In  LIST  in  to  be  entered  In  LIST  n. 

The  length  of  LIST  n  Is  automatically  updated. 

Die  modes  and  number  of  components  In  LIST  n  must 
be  compatible  with  the  modes  and  number  of  components  In 
LIST  m. 

NOTE:  Hie  J  entry  In  LIST  m  Is  not  modified  In  any  way 
by  the  PLACE  ENTRY  statement. 

REPLACE  ENTRY 

REPLACE  ENTRY  n  (k)  BY  (e^,  ...^e^) 

where  e^,  ...,e^  are  any  expressions  and  n  Is  the  name 

of  a  LIST,  evaluates  the  expressions  represented  by  each 
e,  enters  the  value  of  the  corresponding  e  into  the  k6 
position  of  the  corresponding  component  of  LIST  n. 

el*  e2* mu8t  be  compatible  with  the  com¬ 
ponents  of  the  LIST  as  they  are  defined  in  the  LIST  and 
mode  declarations  both  as  to  number  and  mode. 
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REPLACE  ENTRY  BY  ENTRY 


REPLACE  ENTRY  n  (k)  BY  ENTRY  m  (j) 

4*  m 

causes  the  k*n  6ntry  in  LIST  n  to  be  replaced  by  the  J 
entry  in  LIST  m. 

If  the  names  "n"  and  "m"  are  identical,  (i.e. 
refer  to  the  same  LIST),  "m"  may  be  omitted. 

The  modes  and  number  of  components  in  LIST  n  must 
be  compatible  with  the  modes  and  number  of  components  in 
LIST  m. 

NOTE*  The  J*'*'  entry  in  LIST  m  is  not  modified  in  any  way 
by  the  REPLACE  ENTRY  BY  ENTRY  statement. 

Conditional  Expressions  in  List  Processing  Statements 

Each  of  the  list  processing  statements  described 
below  contains  a  logical  expression  or  set  of  expressions 
which  determines  whether  or  not  the  entries  in  the  designated 
LIST  will  be  operated  upon  as  specified  by  the  particular 
list  processing  statement.  A  conditional  list  processing 
statement  implies  a  Do-loop  because  the  statement  can  operate 
on  more  than  one  entry. 
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When  the  form: 


(V 

Is  used,  each  b  represents  a  logloal  expression  that 
refers  to  a  corresponding  component  of  the  designated 
LIST.  Therefore,  the  number  of  expressions  must  not 

exceed  the  number  of  components  In  the  LIST. 

For  example.  If  a  LIST  has  four  components  as 
In: 


LIST  A  ((B,  C,  D,  E),  3) 

the  conditional  list  processing  statement  may  oontaln 
four  logical  expressions. 

The  (b^,  b2,...,b1)  form  causes  every  entry  In 

the  LIST  to  be  examined. 

An  additional  qualification  may  be  Imposed  on  the 
Index  of  entry.  When  the  form: 

(b^,  bg, . .  ,,b^,  b^) 

Is  used,  b  refers  to  a  condition  which  Is  being  placed  on 

«r% 

the  entry  index  (the  position  of  the  entry  In  the  LIST). 
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In  this  0806,  If  a  LIST  contains  n  components,  n+1 
conditions  are  imposed, 

lhe  (b^,  bg,,,,,b^,  b^)  form  limits  the  entries 
to  be  examined  to  those  specified  by  the  expression  b  , 

When  a  conditional  list  processing  statement  is 
encountered  during  execution  of  the  object  program,  only 
those  entries  which  satisfy  the  following  conditions  will 
be  processed; 

1,  The  evaluation  of  each  logical  expression 
must  result  in  a  value  of  TRUE  in  reference  to  its  corre¬ 
sponding  component, 

2.  and  when  a  condition  is  placed  on  the  entry  in¬ 
dex  (bx  form),  this  logical  expression  must  also  have  a  value 
of  TRUE. 

The  symbol  *  is  used  to  denote  the  current  value 
of  a  component  or  the  current;  index. 

For  example,  the  logical  expression: 

(  *  .  0  .  3,  *  .  0  .  6) 

would  refer  to  a  LIST  with  two  or  more  components.  Those 
entries  for  which  the  first  element  exceeds  3 »  and  the  second 
element  exceeds  6  would  be  operated  upon, 

NOTE:  Control  always  passes  to  the  instruction  following  the 
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conditional  list  processing  statement,  whether  or  not 
any  entries  are  processed. 

The  conditional  list  processing  statements  are: 


REMOVE 

REPLACE 

REPLACE  BY  ENTRY 


REMOVE 


REMOVE  (b1#  b2,...,b±)  PROM  n 

where  b^,  b2, ...,b^  are  any  logical  expressions  and  n  is 

the  name  of  a  LIST,  evaluates  the  expressions  represented 
by  each  b  and  removes  all  the  entries  in  LIST  n  which  cause 
all  of  the  expressions  b^,  b2, ,,,,b^  to  be  evaluated  as  TRUE, 

1*1'  b2,,,,,b^  must  be  compatible  with  the  components 

of  the  LIST  as  to  number  and  mode. 

The  LIST  is  compressed  to  remove  blank  entries,  and 
the  length  of  the  LIST  is  automatically  updated. 

For  example  if  a  LIST  is  declared  as: 

LIST  SHIPS  (TYPEA,  SPEED,  RANGE),  40) 
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and  the  mode  declarations  state: 


PROGRAM  OBJECT  SHIPS,  TYPE 
INTEGER  SPEED,  RANGE 

CLASS (SUBMARINE) CONTAINS  TYPEA,  TYPEB,  TYPEC 


The  statement: 


REMOVE  (*.  IN  SUBMARINE,  *.G.20,  *.G.1000)  PROM  SHIPS 

would  remove  every  entry  in  the  LIST  ships  that  was  in 
CLASS  SUBMARINE  whose  speed  is  greater  than  20  and  whose 
range  is  greater  than  1000. 

If  the  form: 


REMOVE  (b1,b2,...,b1,  bx) 

is  used,  b  is  the  condition  placed  on  the  entry  index. 

In  the  example  given  above,  if  the  REMOVE  state¬ 
ment  had  been  written  as  follows: 


REMOVE  (*. IN. SUBMARINE,  *.G.20,  *.G.1000,  *.LE.20) 
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« 

the  last  conditional  would  reatriot  the  removal  to  the 
first  20  entries  provided  that  the  other  conditions  are 
also  met, 

REPLACE 


REPLACE  (b«^,  BY  (e^,  t • » i®^)  IN  n 

where  b^,  bg, ,,.,b^  are  any  logical  expressions,  e^,  eg, ...,6^ 

are  any  expressions,  and  n  is  the  name  of  a  LIST,  evaluates  the 
expressions  represented  by  each  b,  and  replaces  all  the  entries 
in  LIST  n,  which  cause  all  of  the  expressions  b^,  bg, ...,b1  to 

be  evaluated  as  TRUE,  with  the  value  of  the  corresponding  e. 

The  form: 


REPLACE (b^,  bg,...,b1,  bx)  BY  (e1,  eg, ...,e±)  IN  n 
may  also  be  used. 

The  modes  and  number  of  components  in  LIST  n  must 
be  compatible  both  with  the  modes  and  number  of  expressions 
represented  by  each  b  and  each  e. 
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REPLACE  BY  ENTRY 


REPLACE^,  b2,...,b±)  BY  ENTRY  m  (j)  IN  n 

evaluates  the  logical  expressions  represented  by  each  b,  and 
replaces  all  the  entries  In  LIST  n  which  cause  all  of  the 
expressions  b^,  b2,,..,b^  to  be  evaluated  as  TRUE,  with  the 

Jth  entry  In  LIST  m. 

The  form: 

REPLACE  (b1#  b2,...,b±,  bx)  BY  ENTRY  m  (j)  IN  n 
may  also  be  used. 

The  modes  and  number  of  components  In  LIST  n  must 
be  compatible  with  both  the  number  of  expressions  represented 
by  each  b  and  with  the  modes  and  number  of  components  In  LIST  m. 
If  the  names  "n"  and  "m"  are  Identical,  "m"  may  be 

omitted. 

MINIMUM  INDEX 

MINIMUM  INDEX  (n(b1#  b2,...,b±),  s) 

or 
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MINIMUM  INDEX  bg,...^,  b^),  s) 

where  n  Is  the  name  of  a  LIST,  each  b  Is  a  logical  ex¬ 
pression,  and  s  Is  a  statement  label,  evaluates  the  ex¬ 
pressions  represented  by  each  b  and  returns  the  lowest 
Index  In  LIST  n  whose  entry  causes  all  of  the  logical 
expressions  to  be  evaluated  as  TRUE.  If  no  such  entry 
Is  found,  control  Is  transferred  to  the  statement  labelled 

n_  n 

B  • 

MINIMUM  INDEX  Is  a  function  which  may  be  used  In 
any  expression  anywhere  In  the  program.  The  value  returned 
Is  an  Integer  value, 

MINIMUM  INDEX  may  be  shortened  to  INDEX  without 
loss  of  meaning. 

RANDOM  INDEX 

RANDOM  INDEX  (n(b1#  b2,...,b1),  a) 

or 

RANDOM  INDEX  (nfb^  b2, . .  ,,b1,bx),  s) 
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where  n  Is  the  name  of  a  LIST,  each  b  is  a  logical  expres¬ 
sion,  and  s  is  a  statement  label,  evaluates  the  expressions 
represented  by  each  b  and  returns  an  index  in  LIST  n  chosen 
at  random  from  all  the  indices  whose  entries  cause  all  of 
the  logical  expressions  to  be  evaluated  as  TRUE.  If  no 
such  entry  is  found,  control  is  transferred  to  the  statement 
labelled  "s". 

RANDOM  INDEX  is  a  function  which  may  be  used  in 
any  expression  anywhere  in  the  program.  The  value  returned 
is  an  integer  value. 

LST 


LST  is  used  to  impose  an  additional  qualifica¬ 
tion  on  one  of  the  components  in  an  entry. 

If  LST  precedes  a  logical  expression  in  a 
conditional  list  processing  statement,  only  the  entry 
whose  corresponding  component  is  the  least  of  all  the 
components  will  be  operated  upon,  provided  that  all  logical 
expressions  assume  a  value  of  TRUE. 

LST  may  be  used  with  only  one  expression  in 
a  conditional  list  processing  statement. 

For  example: 

(b1,b2,LST(b3),...,b1) 
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Is  valid. 


(b1,LST(b2),LST(b3),...,b1) 

is  invalid. 

If  two  entries  are  found,  the  entry  with  the 
least  index  is  chosen. 

If  LST  refers  to  bx  as  in 

(b1,b2,b3,...,b1,LST(bx)) 
the  minimum  index  is  sought. 

GST 

GST  is  similar  to  LST  except  that  the  entry 
whose  corresponding  component  is  the  greatest  of  all  such 
components  will  be  operated  on. 

Additional  Rules  for  Specifying  the  Formation  of  Logical 

Expressions  in  Conditional  List  Processing  Statements 

Certain  abbreviations  and  conventions  may  be 
used  in  the  logical  expressions  of  a  conditional  list 
processing  statement. 

1.  If  the  logical  expression  is  a  single 
quantity  -  the  logical  constant  TRUE  - 
the  value  of  each  of  the  elements  in 
the  corresponding  component  is  not  examined, 
i.e:  in  the  expression  (b1,TRUE,b3)  only 
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and  are  evaluated. 


2.  Omitted  expressions  are  assumed  to  be 
TRUE  -  l.e:  (b^.b^)  Is  equivalent  to 
(b1,'IRUE,b3). 

3.  An  arithmetic  expression  which  does  not 
have  an  arithmetic  relational  operator 
Is  assumed  to  be  *.E.e  (where  e  Is  an 
arithmetic  expression)  l.e: 

5 

Is  equivalent  to: 

*.E.5 

4.  A  PROGRAM  OBJECT  variable  alone  Is 
equivalent  to  *.IS,e  (where  e  Is  a 
PROORAM  OBJECT  variable)  l.e:  If  TANK 

Is  declared  In  a  PROGRAM  OBJECT  declaration, 
then: 

TANK 

Is  equivalent  to: 

*. IS. TANK 

5 .  An  OBJECT  or  CLASS  name  alone  Is 
equivalent  to  *.IN.e  (where  e  Is  an 


133 


OBJECT  or  CLASS  name).l.e.  If  TANK  Is 
declared  In  an  OBJECT  declaration,  then 

TANK 

Is  equivalent  to 


*. IN. TANK 


CHAPTER  VTI 


EVENTS 


A  military  simulation  program  usually  involves 
the  processing  of  simulated  events  which  occur  either  at 
regular  intervals  or  at  critical  Junctures  in  time.  The 
event  statements  facilitate  the  processing  of  these  simu¬ 
lated  occurrences  by  providing  the  programmer  with  the 
means  to  associate  the  data  related  to  a  specific  event 
with  the  processing  that  must  be  effected  each  time  the 
event  occurs. 

The  event  statements  are: 

PERMANENT  EVENT 
CONTINGENT  EVENT 
END 

END  CONTINGENT  EVENTS 

NEXT  EVENT 

NEXT  EVENT  EXCEPT 

PERMANENT  EVENT  and  CONTINGENT  EVENT  define  the 
start  of  processing  for  a  specific  event  and  also  declare 
a  list.  The  END  statement  defines  the  end  of  processing 
for  a  specific  event.  The  processing  associated  with  the 
occurrence  of  a  particular  event  is  effected  by  the  group 
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of  MILITRAN  processing  statements  enclosed  between  either 
a  PERMANENT  EVENT  statement  or  a  CONTINGENT  EVENT  state¬ 
ment  and  an  END  statement.  Therefore,  the  "event”  itself 
may  be  described  as  the  "event"  statement,  followed  by  a 
group  of  processing  statements,  followed  by  an  END  state¬ 
ment.  The  remaining  statements  enumerated  above  are  con¬ 
trol  statements. 

1.  PERMANENT  EVENT 

A  "PERMANENT  EVENT"  is  one  which  occurs  at  re¬ 
gular  intervals  in  time.  The  start  of  processing  and  the 
data  associated  with  a  "PERMANENT  EVENT"  is  declared  as 
follows. 

PERMANENT  EVENT  N((a1,a2, ...,a1),  d  ) 

where  N  is  both  name  of  the  event  and  the  name  of  the 
list  associated  with  the  event;  a^,a2,...,a^  are  the  list 
components,  each  of  which  is  the  name  of  an  array  and  all 
of  which  are  also  associated  with  the  name  N,  and  d  is 
the  dimension  associated  with  each  component. 

The  entries  in  a  list  associated  with  a  "PERMA¬ 
NENT  EVENT"  may  be  retrieved  in  the  same  manner  as  are 
entries  in  a  vector.  The  rules  for  declaring  the  mode  of 
a  PERMANENT  EVENT  list  and  its  components  are  also  the 
same  as  those  for  declaring  the  mode  of  a  vector  and  its 
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components #  A  PERMANENT  EVENT  does  not  require  a  list, 
in  which  case  N  is  Just  the  name  of  the  event  and  the 
PERMANENT  EVENT  statement  only  defines  the  start  of 
processing  for  the  event  named  N, 

2.  CONTINGENT  EVENT 

A  "CONTINGENT  EVENT"  is  one  which  occurs  at  a 
critical  Juncture  in  time.  In  military  simulations,  the 
potential  event  is  always  associated  with  the  time  of 
occurrence,  and  usually  has  an  attacking  object,  a  target 
object,  and  other  descriptive  Information  associated  with 
it. 


The  start  of  processing  and  the  data  associated 
with  a  "CONTINGENT  EVENT"  is  declared  as  follows: 

CONTINGENT  EVENT  N  ( (a^a2, . . .  ta1 )  ,d) 

where  N  is  both  the  name  of  the  event  and  the  name  of 
the  list  associated  with  the  event;  a1,a2,...,a1  are  the 
list  components,  each  of  which  is  the  name  of  an  array  and 
all  of  which  are  also  associated  with  the  name  N,  and  d 
is  the  dimension  associated  with  each  component. 

A  "CONTINGENT  EVENT"  must  have  a  list.  How¬ 
ever,  this  list  may  have,  if  desired,  only  one  component. 
The  rules  for  declaring  the  mode  of  a  CONTINGENT  EVENT 
are  the  same  as  those  for  declaring  the  mode  of  a  vector 
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and  Its  components 


The  first  component  (or  the  only  component),  a^, 
always  represents  the  critical  time  at  which  the  potential 
event  may  take  place.  This  component  must  be  of  REAL  mode. 

The  second  component,  ag,  if  present,  may  be 
assigned  the  value  of  the  attacking  object,  in  which  case, 
&2  must  be  of  PROGRAM  OBJECT  mode. 

The  third  component,  a^,  if  present,  may  be 
assigned  the  value  of  the  target  object,  in  which  case, 
a^  must  be  of  PROGRAM  OBJECT  mode. 

The  remaining  components,  if  present,  may  be 
used  for  additional  descriptive  information  and  may  be 
of  any  mode. 

To  facilitate  the  processing  of  a  CONTINGENT 
EVENT,  the  MILITRAN  processor  provides  four  variables. 
These  variables  are  automatically  reserved  by  the  pro¬ 
cessor;  they  do  not  have  to  be  declared.  They  are: 

1.  INDEX  which  is  of  INTEGER  mode. 

2.  TIME  which  is  of  REAL  mode. 

3.  ATTACKER  which  is  of  PROGRAM  OBJECT  mode. 

4.  TARGET  which  is  of  PROGRAM  OBJECT  mode. 
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Transfer  of  control  to  a  CONTINGENT  EVENT  state¬ 
ment  Is  accomplished  by  a  selection  process  described 
under  "NEXT  EVENT,"  This  transfer  of  control  Implies 
that  a  specific  entry  In  the  contingent  event  list  has 
been  selected  for  processing.  The  position  of  the  entry 
in  the  list  Is  automatically  stored  in  the  variable  INDEX. 

The  corresponding  list  entry  of  the  first  component  Is 

« 

automatically  stored  In  the  variable  TIME,  If  a  second 
component  has  been  declared  In  the  list,  the  corresponding 
value  of  this  component  Is  stored  In  ATTACKER,  Likewise, 
If  a  third  component  has  been  declared.  Its  corresponding 
value  Is  stored  In  TARGET, 

These  variable  names  -  INDEX,  TIME,  ATTACKER, 
TARGET  -  may  be  used  to  retrieve  the  entries  In  the  list. 
For  example.  If  an  event  Is  declared  as: 

CONTINGENT  EVENT  BLAST ( (MOMENT, LAUNCHER, RECEIVER) , 4 ) 
and  the  second  entry  has  been  selected  for  processing, 
the  value  of  INDEX  would  be  2  and  the  values  of  TIME, 
ATTACKER,  TARGET  would  be  automatically  updated  as  though 
the  following  statements  had  been  written: 

TIME  -  BLAST ( INDEX, 1) 

ATTACKER  =  BLAST (INDEX, 2) 

TARGET  =  BLAST (INDEX, 3) 
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3.  NEXT  EVENT 

The  NEXT  EVENT  statement  Is  a  oontrol  statement. 
The  various  oontrol  statements,  disoussed  previously, 
altered  the  prooess  of  sequential  exeoutlon  of  the  pro¬ 
gram  either  unconditionally  or  conditionally  by  first 
evaluating  a  logical  expression  and  then  transferring  to 
a  statement  out  of  the  normal  sequenoe,  dependent  on  the 
value  of  the  logical  expression.  NEXT  EVENT  alters  the 
sequential  execution  of  the  object  program  but  the  method 
used  to  determine  the  selection  process  for  event  pro¬ 
cessing  is  based  on  a  "time"  value. 

The  form  of  the  NEXT  EVENT  statement  is: 

NEXT  EVENT 

The  NEXT  EVEN'  statement  is  used  to  start  event 
processing  and  to  proceed  from  one  event  to  the  next.  The 
following  rules  determine  the  sequence  for  event  processing: 
1.  When  an  object  program  contains  both  "Permanent  Events" 
and  "Contingent  Events"  - 

a.  The  first  NEXT  EVENT  statement  appearing 
outside  the  bounds  of  an  "event"  which  is 
reached  during  the  execution  of  the  program, 
will  transfer  control  to  the  first  "Permanent 
Event"  appearing  in  the  source  program.  NEXT 
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EVENT  statements  appearing  within  the 
bounds  of  a  "Permanent  Event",  cause 
control  to  be  transferred  to  the  next 
permanent  event  as  it  appears  in  the  source 
program . 

b.  when  the  last  "Permanent  Event"  has  been 
executed,  control  will  be  transferred  to 
the  "Contingent  Event"  whose  associated 
list  contains  in  its  "a^"  component  (as 
descrioed  above)  the  smallest  value  for 
"time"  equal  to  or  greater  than  the  variable 
TIME.  When  the  "Contingent  Event"  has  been 
selected,  the  position  of  the  selected  entry 
is  placed  in  INDEX  and  TIME  is  set  to  a^ 

(INDEX);  ATTACKER  to  ag( INDEX);  and  TARGET 
to  a^  (INDEX). 

If  two  or  more  events  are  found  whose  tine  values 
are  equal,  the  event  selected  will  be  the  first 
one  stated  in  the  source  program. 

c.  A  NEXT  EVENT  statement  appearing  within 
the  bounds  of  a  "Contingent  Event"  causes 
control  to  be  transferred  to  the  first  "Perma¬ 
nent  Event",  which  will  cause  a  repeat  of 

the  Fvent  Cycle. 
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2.  When  the  object  program  contains  only  "Contingent 

Events",  selection  occurs  as  explained  under  lb  above; 
and  a  NEXT  EVENT  statement  appearing  within  the  bounds 
of  a  "Contingent  Event"  causes  control  to  be  trans¬ 
ferred  to  the  next  "Contingent  Event". 

Modifications  of  NEXT  EVENT 

The  processing  sequence  for  "events"  may  be 
modified  by  the  use  of  the  following  form: 

NEXT  EVENT(n1,n2, . ..,n1) 

where  each  n  is  the  name  of  an  event,  either  "permanent" 
or  "contingent". 

If  n,,...,n^  includes  both  permanent  and  "con¬ 
tingent"  events,  control  is  transferred  to  the  first  n 
appearing  in  the  parentheses  which  is  a  "permanent"  event. 
If  all  are  "contingent"  events,  the  event  is 

selected  by  means  of  the  "time"  value  as  in  lb  above. 

This  form  limits  the  selection  of  events  to  include  only 
the  events  n^,n2, . . . ,n. . 

NEXT  EVENT  EXCEPT ( n^, n2 ,..., n, )  where  each  n  is 
the  name  of  an  event,  either  "permanent"  or  "contingent". 

This  form  limits  the  selection  of  events  to 
exclude  the  events  named  n1,...,n^.  If  the  event  in 
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which  the  NEXT  EVENT  (n^...,^)  or  NEXT  EVENT  EXCEPT 
statement  Is  excluded  from  consideration,  selection  oc¬ 
curs  as  though  the  NEXT  EVENT  had  occured  outside  the 
bounds  of  any  event. 

4.  END 

END 

defines  the  end  of  processing  for  a  specific  event. 

When  an  END  statement  can  be  reached  by  the  program  logic, 
it  is  always  interpreted  as  an  unmodified  NEXT  EVENT. 

5.  END  CONTINGENT  EVENTS 

END  CONTINGENT  EVENTS  (S) 

where  S  is  a  statement  label,  causes  control  to  be  trans¬ 
ferred  to  S.  However,  an  END  CONTINGENT  EVENTS  statement 
does  not  transfer  control  at  the  time  it  is  encountered; 
but  acts  as  a  modifier  of  all  forms  of  the  NEXT  EVENT 
statement  only  if  a  NEXT  EVENT  is  being  processed  which 
would  normally  transfer  control  to  a  "Contingent  Event"; 
and  no  "Contingent  Event"  has  a  list  entry  whose  time 
component  is  equal  or  greater  than  the  current  value  of 
TIME.  If  these  conditions  exist  control  will  be  trans¬ 
ferred  to  the  statement  labelled  S. 
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An  END  CONTINGENT  EVENTS  statement  may  be 
placed  anywhere  In  the  source  program  and  the  location 
represented  by  S  may  be  changed  during  the  running  of 
the  object  program  by  the  use  of  several  such  statements. 
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CHAPTER  VIII 


PROCEDURES 


Procedures  are  programs  arranged  to  permit  entry 
from  other  programs.  The  use  of  procedures  allows  the 
programmer  to  cause  processing  to  occur  at  several  points 
in  his  program  without  repeatedly  specifying  each  state¬ 
ment  necessary  to  effect  that  processing. 

All  MILITRAN  procedures  are  compiled  separately. 
This  feature  allows  previously  written  programs  to  be 
used  by  a  new  program  without  recompiling. 

Procedures  may  be  "executed"  in  two  ways :  as 
"subroutines"  or  as  "functions".  Subroutines  are  entered 
by  means  of  EXECUTE  statements.  Functions  are  entered 
by  means  of  expressions.  For  example,  the  statement 

EXECUTE  SINE (THETA, RESULT) 

causes  the  subroutine  "SINE"  to  be  entered.  When  exe¬ 
cution  of  "SINE"  is  completed,  control  is  returned  to  the 
statement  following  the  EXECUTE  statement.  The  statement 

A  =  SIN (THETA)  +  COS (THETA) 

causes  functions  "SIN"  and  "COS"  to  be  entered  during  the 
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evaluation  of  the  expression.  Values  returned  from 
each  function  are  used  in  the  expression  in  place  of 
the  function  names. 

1.  MILITRAN-Coded  Procedures 

Procedures  may  be  coded  in  MILITRAN  by  using 
two  special  statements.  They  are: 

PROCEDURE 

RETURN 

Procedures  may  be  entered  from  MILITRAN  programs  by 
means  of  the  statement 

EXECUTE 

The  PROCEDURE  statement  is  the  entry  point  to 
a  procedure  and  defines  it  to  be  such,  as  well  as  de¬ 
fining  its  name  and  arguments.  EXECUTE  causes  control 
to  be  transferred  to  the  specified  subroutine  and  RETURN 
causes  control  to  be  transferred  to  the  main  program. 

PROCEDURE 

PROCEDURE  n 
or 

PROCEDURE  n(a^,ac, . . ,,a  ) 

where  n  is  the  name  of  the  procedure  and  each  a^,  if 
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present,  is  a  name  denoting  an  argument  of  the  procedure, 
causes  the  source  program  named  "n"  to  be  compiled  as  a 
relocatable  subroutine. 

The  name  of  a  procedure  may  have  up  to  60 
characters,  but  the  first  six  characters  of  a  procedure 
name  must  be  unique  among  all  other  procedure  names.  A 
subroutine  Introduced  by  the  PROCEDURE  statement  must  be 
a  MILITRAN  program  and  may  contain  any  MILITRAN  statements 
except  another  PROCEDURE  statement. 

The  arguments  In  a  PROCEDURE  statement  are  dummy 
names  which  are  replaced  at  the  time  of  execution  by  the 
actual  arguments  supplied  In  the  EXECUTE  statement (see  below). 
There  must,  therefore,  be  correspondence  In  number,  mode, 
and  order,  between  the  two  sets  of  arguments.  Furthermore, 
when  a  dummy  argument  Is  an  array,  vector,  or  list  name, 
the  corresponding  actual  argument  must  also  be  an  array, 
vector,  or  list  name. 

EXECUTE 

EXECUTE  n(a1,a2, . . .,aj) 

where  n  Is  the  name  of  a  procedure  and  each  a^.  If 
present.  Is  any  expression  denoting  an  actual  argument, 
transfers  control  to  the  procedure  named  "n"  and  stores 
the  actual  arguments  In  the  dummy  arguments  of  the  procedure. 
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RETURN 


RETURN  a 

causes  control  to  be  returned  to  the  main  program  with 
the  value  of  the  expression  "aM  In  the  accumulator.  If 
"a"  Is  not  present,  the  accumulator  contents  are  unspe¬ 
cified. 

There  must  be  at  least  one  RETURN  statement  In 
every  procedure,  and  there  may  be  more  than  one  If  a  pro¬ 
cedure  can  terminate  at  more  than  one  point. 

If  the  procedure  Is  to  be  used  as  a  "function", 
the  form  "RETURN  a"  must  be  used. 

2.  Library  Functions 

Procedures  which  are  likely  to  occur  In  many 
programs  have  been  pre-written  and  Included  In  the 
MILITRAN  library.  All  of  these  functions  return  values 
In  REAL  mode  and  require  arguments  of  REAL  mode. 

The  following  library  functions  are  available: 

1.  LOG  (v) 

The  natural  logarithm  of  v  Is  returned. 

2.  SIN(v),  COS(v),  TAN ( v ) 

These  trigonometric  functions  return  sln(v). 
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cob  (v),  and  tan(v).  The  argument  "v" 
is  assumed  to  be  in  radians. 

3.  ATAN  (v1,v2) 

The  smallest  positive  angle  (in  radians) 
whose  tangent  is  v^/v2  is  returned.  The 
signs  of  and  v2  are  considered  separately 
in  order  to  select  the  proper  quadrant. 


4. 

5. 


SQRT(v) 
The  value 


is  returned. 


EXP ( v ) 

The  value  ev  is  returned,  where  e  is  the 
base  of  natural  logarithms. 


6 .  RANDOM 


A  pseudo-random  number  (x)  is  returned  in 
REAL  mode.  0  -  x  ^  1. 


3.  Open  Functions 

Up  to  this  point  we  have  been  considering  "closed" 
procedures,  1 . e. ,  programs  which  may  be  entered  repeatedly 
with  different  arguments.  The  MILITRAN  language  also 
provides  several  "open"  functions.  Open  functions  cause 
coding  sections  to  be  Inserted  in  the  program  each  time 
they  appear. 

The  following  open  functions  are  provided  in 
MILITRAN.  All  arguments  (v)  must  be  REAL  or  INTEGER  in  mode. 
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1.  M0D(v1,v2) 

The  value  mod  v2  is  returned  in  the  mode 
of  v^.  Arguments  (*f)  must  be  of  the  same 
mode . 

2.  INTEOER(v) 

The  value  v  is  returned  In  INTEGER  mode. 

Any  fractional  part  of  v  is  truncated. 

3.  REAL(v) 

The  value  v  Is  returned  In  REAL  mode.  If 
v  Is  of  Integer  mode  it  may  not  exceed 

227  -  1. 

4.  31GN(v1,v2) 

The  value  v^  is  returned  in  the  mode  of 
v^  and  bearing  the  sign  of  Vg. 

5.  MINfv^Vg,  . .  .,vn) 

MAX( V ^  *  Vg  *  •  •  •  »^jj) 

The  minimum  or  maximum  value  among  all 

values  Vl,v2 . vn  Is  returned  In  the 

mode  of  v,  .  All  arguments  (v)  must  be 
of  the  same  mode. 

6.  EPSILON(v) 

The  value  v  +  £  Is  returned  In  the  mode  of 
v.  The  Increment  £  Is  the  smallest  Incre¬ 
ment  of  v  which  can  be  expressed  within 
the  computer. 

7.  ABS(v) 

The  value  |vj  Is  returned  In  the  mode  of  v. 
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CHAPTER  DC 


INPUT  AND  OUTPUT  STATEMENTS 


1,  Introduction 

The  input-output  statements  are  used  to  control 
the  flow  of  data  into  and  out  of  the  computer.  The  state¬ 
ments  are  used  to  specify  the  kind  and  amount  of  data  to 
be  transmitted,  the  tape  units  to  be  used  for  the  reading 
or  writing  of  the  data,  and  the  format  of  the  external 
data  representation. 

The  input-output  statements  are: 

FORMAT 

READ 

WRITE 

READWRITE 

BINARY  READ 

BINARY  WRITE 

BACKSPACE 

BACKSPACE  FILE 

END  FILE 

REWIND 

UNLOAD 
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The  READ,  WRITE,  and  REAEWRITE  statements  cause 
the  transmission  of  BCD  data  between  the  tape  units  and 
computer  storage.  The  linkage  between  the  Internally 
stored  data  and  Its  external  representation  Is  accomplished 
by  specifying  In  the  Input  or  output  statement  the  statement 
label  of  a  FORMAT  statement.  The  FORMAT  statement  contains 
a  set  of  editing  oodes  which  enable  the  translation  of  in¬ 
ternal  representation  to  external  representation  and  vice 
versa,  BINARY  READ  and  BINARY  WRITE  are  used  where  work 
tapes  or  other  internal  extensions  are  desired.  The  re¬ 
maining  input-output  statements  -  -  BACKSPACE,  BACKSPACE 
FILE,  END  FILE,  REWIND,  UNLOAD  -  -  are  magnetic  tape  control 
statements, 

2,  Input-Output  Lists 

Five  of  the  input-output  statements  call  for 
the  transmission  of  data.  They  are  READ,  WRITE,  READ- 
WRITE,  BINARY  READ,  and  BINARY  WRITE,  and  each  of  these 
statements  may  have,  as  one  of  its  components,  a  list  of 
variable  names.  These  variable  names  refer  to  the  space 
in  the  computer  memory  reserved  for  the  storage  of  varia¬ 
ble  data.  Therefore,  the  function  of  the  input-output 
list  is  to  provide  the  data  transmission  statement  with 
the  information  necessary  to  either  store  (for  input)  or 
retrieve  (for  output)  the  data.  When  the  input  or  output 
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command  is  executed,  the  program  references  the  list  to 
determine  where  the  data  is  to  be  stored  or  where  it  is 
to  be  obtained.  The  input-output  list  is  ordered,  and 
its  order  must  be  the  same  as  the  order  in  which  the 
data  fields  appear  on  tape(  for  input)  or  will  exist 
(for  output). 

For  example,  if  an  input  tape  contains  data  in 
the  following  sequence: 

10  72  63  5  12  474  322 

and  this  tape  is  read  in  by  an  input  statement  whose  as¬ 
sociated  list  is: 

A,B,C,D,  SPEED,  RANGE,  DIST 

the  data  will  be  read  in  and  stored  in  the  location  speci 
fled  by  the  variable  names,  as  though  the  following  state 
ments  had  been  written: 

A  -  10 
B  »  72 

C  -  63 
D  -  5 
SPEED  -  12 
RANGE  -  474 
DIST  -  322 
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Similarly,  if  this  Hot  la  uaed  with  an  output 
atatement,  the  data  will  appear  on  the  output  medium  in 
the  order  specified  by  the  list. 

Integer  and  real  quantities,  and  logical  and 
object  elements  may  be  specified  by  the  same  input-output 
list,  but  each  item  in  the  list  must  be  separated  from  the 
succeeding  item  by  a  comma. 

Any  number  of  quantities  may  appear  in  a  single 
list.  However,  if  a  record  contains  more  quantities  to 
be  transmitted  than  there  are  variable  names  in  the  list, 
only  the  number  of  quantities  specified  in  the  list  are 
transmitted,  and  the  remaining  quantities  are  lost.  Thus, 
if  a  reoord  contains  three  quantities  and  a  list  contains 
two,  the  third  quantity  is  lost.  Conversely,  if  a  list 
oontalns  more  quantities  than  the  record,  succeeding 
records  will  be  read  or  written  until  all  the  items  spec¬ 
ified  in  the  list  have  been  transmitted. 

The  items  specified  in  a  list  may  each  take  one 
of  several  forms.  The  simplest  is  a  single  variable  name, 
as  in: 

A,  B,  C,  D,  SPEED,  RANGE,  DIST 

A  list  may  also  contain  subscripted  variable 
names,  if  the  subscripts  have  been  previously  defined. 
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as  In: 


A,B(6),  C(3,4) ,  D(A) 

In  the  above  example,  A  may  be  used  as  a  subscript  for 
D  because  A  Itself  appears  earlier  In  the  list  and  will 
have  assumed  a  value  by  the  time  the  data  represented  by 
D(A)  Is  encountered. 

When  Input-output  of  an  array  or  vector  Is 
desired,  an  Implied  DO-loop  either  of  Form  1  or  Form  2 
(nested  to  any  depth)  may  be  used  for  the  Input-output  list. 
The  vector  or  array  Is  specified  as  a  subscripted  variable 
name.  For  example,  the  Input-output  list  which  might  be 
associated  with  a  one  dimensional  array  could  be  written 
as  follows: 

((A(I))UNTIL  I. 0.10,  1-1,1) 

The  above  Input-output  list  would  cause  10 
Items  of  data  to  be  transmitted  In  the  following  sequence: 

A(l)  A(2)  A(3) . A(9)  A (10) 

When  the  list  Is  encountered,  the  following 
would  occur: 

1.  I  Is  set  to  1. 

2.  The  logical  expression  I. 0.10  Is  evaluated, 
and  since  It  Is  FALSE,  the  first  Item  of 
data  -  A(l)  -  Is  transmitted. 
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3.  I  is  incremented  by  1,  the  logical  expression 
is  evaluated  again  and  the  transmission  of 
data  -  A(2)  A(3)  ....  A(10)  -  continues 
until  I  assumes  a  value  of  11. 

The  next  list  might  be  used  with  a  two  dim¬ 
ensional  array  which  has  6  components. 

(((A(l,j))UNTIL  1.0.3, I-l,l)UNTIL  J.G.2,J«l,l) 

The  data  associated  with  this  list  would  be 
transmitted  as  follows: 

A(l,l)  A{2,1)  A(3,l)  A(l,2)  A(2,2)  A(3,2) 

When  the  list  is  encountered,  execution  occurs 
as  follows: 

1.  J  is  set  to  1 

2.  I  is  set  to  1 

3.  The  logical  expression  -  J.G.2  is  evaluated 
and,  since  it  is  FALSE,  the  expression  1.0.3  is  evaluated. 
Since  this  too  is  FALSE,  the  first  item  of  data  -  A(l,l)  - 
is  transmittSd. 

4.  I  is  incremented  by  lj  I.G.3  is  again  evalu¬ 
ated,  and  the  transmission  of  data  continues  until  the 
terminating  condition  is  reached  when  I  assumes  a  value 

of  4.  At  this  point  the  first  column  of  the  array  - 
A(l,l)  A(2,l)  A(3,l)  will  have  been  transmitted. 
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5.  J  is  Incremented  by  1 

6.  I  le  set  to  one 

7.  J.G.2  Is  evaluated  and  slnee  It  Is  still  FALSE, 
1.0.3  le  evaluated.  At  this  point,  this  expression  Is  FALSE 
and  the  seoond  column  of  data  Is  transmitted  -  A (1,2)  A (2, 2) 
A(3»2).  When  the  terminating  condition  for  1.0.3  has  been 
met,  J  Is  again  Incremented  and  now  assumes  a  value  of  3 
which  Is  the  terminating  condition  for  the  expression  J.G.2. 
The  loop  Is  satisfied  and  the  next  sequential  Instruction 
will  be  executed. 

As  mentioned  above,  an  implied  DO-loop  of  Form  2  may 
be  used  In  an  Input-output  list.  This  form  of  an  Implied  DO- 
loop  will  transmit  a  value  or  series  of  values  which  are  to  be 
associated  with  object  elements.  The  general  form  of  this 
type  of  list  Is: 

((A)  FOR  B.IN.C) 

where  A  Is  a  subscripted  or  nonsubscripted  variable  which  ha3 
been  declared  In  a  REAL,  INTEGER,  PROGRAM  OBJECT,  or  LOGICAL 
declaration  (or  by  means  of  the  NORMAL  MODE  declaration);  B 
Is  a  single  variable  which  has  been  declared  In  a  PROGRAM 
OBJECT  declaration;  and  C  Is  either  the  name  of  a  class  as 
specified  In  a  CLASS  declaration  or  the  name  of  a  group  of 
objects  as  specified  in  an  OBJECT  declaration. 
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This  form  of  input-output  list  will  cause  trans¬ 
mission  of  one  item  of  data  for  each  member  of  "C".  When  the 
first  item  is  transmitted,  variable  B  is  set  to  the  identity 
of  the  first  member  of  C.  For  succeeding  transmissions,  "B" 
assumes  the  identity  of  all  members  of  MC".  Transmission  of 
data  ceases  when  all  members  of  "C"  have  been  covered  sequen¬ 
tially. 


As  an  example,  consider  the  following  input-output 

list: 


((RANGE(AC))  FOR  AC. IN. AIRCRAFT) 


If  AIRCRAFT  had  been  declared  an  object  element  with  a 
cardinality  of  10  as  in: 

OBJECT  AIRCRAFT(IO) 


and  RANGE  had  been  declared  an  integer  array  with  a  dimension 
equal  to  the  cardinality  of  AIRCRAFT  as  in: 

INTEGER  RANGE (AIRCRAFT) 

the  input-output  list  would  provide  the  data  transmission 
statement  with  the  location  for  the  storage  or  retrieval  of 
the  ten  quantities  which  would  be  the  ranges  of  each  of  the 
ten  aircraft. 

As  the  above  DO-type  input-output  list  indicates, 
the  range  of  the  implied  DO  list  must  be  clearly  defined  by 
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means  of  parentheses.  Both  the  data  and  the  loop  Itself 
must  be  In  parenthesis.  The  following  example  Illustrates 
a  more  complicated  list  which  utilizes  Implied  DO-loops, 

A,C(2),((J,((E(J,I))I.Q.2,I-1,1))F0R  U.IN.V) 

3.  FORMAT 

The  manner  In  which  data  Is  represented  in  the 
machine  differs  from  the  external  representation  of  the 
same  Information,  As  a  result.  It  Is  necessary  to  specify 
the  type  of  editing  to  be  performed  on  the  Information  that 
Is  being  transmitted.  This  Is  accomplished  by  means  of  a 
FORMAT  statement  which  may  be  referenced  by  a  READ,  WRITE, 
or  READWRITE  statement.  The  FORMAT  statement  Is  a  nonexe¬ 
cutable  statement  which  specifies  the  type  of  conversion  to 
be  performed  upon  each  member  of  a  list.  The  FORMAT  state¬ 
ment  also  Indicates  where  the  data  Is  located  on  the  Input 
record  or  Is  to.be  located  on  the  output  record. 

The  general  form  of  the  FORMAT  statement  Is: 

FORMAT  (Format  Specification) 

where  Format  Specification  refers  to  any  of  the  following 
editing  oodes: 


I,  E,  F,  0,  J,  L,  A,  H,  X 
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If  more  than  one  editing  code  appears  In  a  FORMAT 
speolfloatlon,  It  must  be  separated  from  the  preceding  edit- 
lng  code  by  a  comma,  with  the  exception  of  X  and  H  type  codes 


Conversion  of  Numeric  Data 

There  are  four  editing  codes  which  control  the 


conversion  of  numeric  data 

Internal 

Editing 

External 

Representation 

Codes 

Representation 

Integer 

Iw 

Decimal  Integer 

Real  Point 

Ew  .  d 

Floating  Point  -  with  Exponent 

Real  Point 

Fw  .d 

Fixed  Point  -  without  Exponent 

Binary  Number 

Ow 

Octal  Integer 

In  the  table  above,  w  and  d  are  unsigned  Integer 
constants;  w  represents  the  width  of  a  given  field  and  d 
specifies  the  number  of  decimal  places  to  the  right  of  the 
decimal  point.  If  w  Is  greater  than  required  to  contain  a 
given  number,  the  contents  of  the  field  are  right  Justified, 
and  the  leftmost  spaces  are  filled  In  with  zeros  (for  data 
being  input)  or  blanks  (for  data  being  output). 

I  Conversion 

Numbers  under  control  of  an  I  type  editing  code 
are  Interpreted  as  decimal  integers.  For  example,  typical 
input  or  output  might  be: 
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16 


-97 

2482 

The  numbers  are  right  Justified  In  the  specified  field  and 
If  the  number  to  be  converted  has  more  digits  than  are  spec¬ 
ified  the  Format  specification,  the  excess  digits  are  dropped 
from  the  left. 

The  following  examples  Illustrate  how  each  of  the 
Integers  on  the  left  would  be  written  externally  If  a  spec- 


Iflcatlon  of  14  had  been  given: 

(b  represents  a  blank) 

Internal 

External 

2462 

2462 

12 

bbl2 

-137 

-137 

-6841 

6841 

86321 

6321 

F  Conversion 

Numbers  under  oontrol  of  an  F  type  editing  code 
are  Interpreted  as  fixed  point  decimal  numbers.  Typical 
Input  or  output  might  be  : 


l6l 


16.7 
-21.2 
17*.  3 
-269.4 
.3 

-0.06 

346. 

Hie  general  editing  code  for  an  P  type  conversion 
la  Fw.  d,  where  w  la  the  width  of  the  entire  field.  Includ¬ 
ing  a  apace  for  the  decimal  point  and  a  apace  for  the  sign, 
and  d  la  the  fractional  portion.  If  Insufficient  spaces 
are  designated  for  the  fractional  portion.  It  Is  rounded; 
zeros  are  filled  In  from  the  right  If  excessive  spaces  are 
reserved.  Hie  Integer  portion  la  handled  In  the  same  manner 
as  numbers  converted  by  the  I  type  conversion. 

Hie  following  examples  show  how  each  of  the  numbers 
on  the  left  would  be  written  externally  If  a  specification  of 
P  6.2  had  been  given. 
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Internal 


External 


47.25 

b47.25 

123.62 

123.62 

-123.62 

123.62 

4725.634 

725.63 

-.1 

b-0.10 

-6. 

b-6.00 

E  Conversion 

Numbers  under  control  of  an  E  type  editing  code 
are  Interpreted  as  a  decimal  fraction  to  a  power  of  10. 

The  first  significant  digit  appears  to  the  right  of  the 
decimal  point.  Typical  Input  or  output  might  be 

0.1431E03 

0.20E-02 

0.671E02 

The  general  editing  code  for  an  E  type  conversion 
Is  Ew.  d,  where  d  Is  the  fractional  portion  and  w  Is  the 
width  of  the  entire  field  Including  a  space  for  the  decimal 
point,  a  space  for  the  sign,  and  four  spaces  for  the  expo¬ 
nent.  As  with  the  P  type  conversion.  If  Insufficient  spaces 
are  designated  for  the  fractional  portion.  It  Is  rounded; 
zeros  are  filled  In  from  the  right  If  excessive  spaces 
are  reserved. 
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The  following  examples  show  how  each  of  the  numbers 
on  the  left  would  be  written  externally  If  a  specification  of 
E  11.3  had  been  given. 


Internal 

External 

167. 

0.l67Eb03 

-43.1 

-0.431Eb02 

.006 

0.600E-02 

.00000002 

-0.200E-07 

-34.0062 

-0.340Eb02 

0  Conversion 

Numbers  under  oontrol  of  the  0  type  editing  oode 
are  interpreted  as  octal  Integers.  The  eight  digits  used 
are  0  through  7. 

The  0  type  editing  code  causes  the  numbers  to  be 
right  Justified  in  the  specified  field  and  will  cause 
excess  digits  to  be  dropped  from  the  left  if  the  number  to 
be  converted  has  more  digits  than  are  designated  by  the 
Format  specification.  Data  to  be  converted  by  an  0  type 
specification  may  be  given  variable  names  of  any  mode. 

Conversion  of  nonnumeric  data 

MILITRAN  provides  five  specifications  for  the 
processing  of  nonnumeric  data. 
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Editing 

Codes 

Type  of  Data 

Jw.d 

Objeot  Elements 

Lw 

Logical  Elements 

Aw 

Alphameric  Data 

wH 

Alphameric  Data 

wX 

Blank  Field  Speolfioation 

J  Specification 

The  J  specification  is  used  in  conjunction  with 
the  input-output  of  objeot  elements.  Typioal  input  or 
output  might  be 

SHIP(25) 

CAR (54) 

TANK(IOO) 

PLANE 

There  are  two  forms  of  the  J  editing  code  -  Jw 
and  Jw.d.  The  Jw  form  causes  a  nonsubsoripted  name  of  an 
objeot  element  to  be  right  Justified  in  the  specified 
field,  w  represents  the  width  of  the  entire  field.  If 
Insufficient  spaoes  are  designated,  the  field  is  truncated 
from  the  left;  blanks  are  filled  in  from  the  left  if  exoes 
sive  spaoes  are  reserved. 
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For  example.  If  a  single  object  element  existed 
In  the  computer  In  the  following  form: 

MILITARYINSTALLATION 

and  an  output  statement  was  written  In  conjunction  with 
the  format  specification 

FORMAT  J10 

the  following  characters  would  be  outputted: 

STALLATION 

Since  Insufficient  spaces  had  been  allocated,  the  name  of 
the  object  element  would  be  truncated  from  the  left.  The 
statement 

FORMAT  J20 

would  permit  the  outputting  of  the  entire  name. 

The  Jw.d  editing  code  permits  the  specification 
of  a  subscript.  In  this  case,  w  Is  again  the  width  of  the 
entire  field  but  It  must  Include  two  spaces  for  parenthesis, 
d  represents  the  number  of  digits  In  the  subscript.  The 
placement  of  data  within  the  w  and  d  fields  Is  handled  In 
the  same  manner  as  with  the  Jw  form.  Both  fields  are  right 
Justified  and  the  field  Is  truncated  from  the  left  If 
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Insufficient  spaces  are  specified  and  blanks  are  filled  In 
from  the  left  if  extra  spaces  are  reserved. 

The  following  examples  show  how  the  objeot  element 
"B0MB(1752)n  would  be  outputted  according  to  the  specification 
given. 


Speolf loatlon  Output 

J10.4  BOMB (1752) 

J8.3  0MB(752) 

J11.5  B0MB(bl752) 

J10.3  bB0MB(752) 

L  Specification 

The  L  speolf loatlon  is  available  for  the  input- 
output  of  the  logical  values,  TRUE  or  FALSE.  The  format 
of  the  L  speoifioation  is  Lw,  where  w  is  the  width  of  the 
entire  field. 

The  effeot  of  Lw  depends  on  whether  it  is  used 
with  an  input  or  output  statement.  If  used  with  an  input 
statement,  the  field  represented  by  w  must  begin  with  a  T 
or  an  F  in  order  for  the  variable  to  assume  a  value  of 
TRUE  or  FALSE.  For  example,  the  specification  L10  could 
be  used  to  input  value  TOMJONESJR.  Since  this  value  be¬ 
gins  with  T,  the  variable  designated  in  the  list  of  the 
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input  statement  would  assume  a  value  of  TRUE.  If  the  value 
FRED J JONES  had  been  inputted,  the  variable  would  assume  a 
value  of  FALSE.  Since  the  w  field  is  truncated  from  the 
left  if  insufficient  spaces  are  specified,  an  incorrect 
value  may  be  transmitted. 

For  output,  one  character  -  either  T  or  F  is 
transmitted.  It  is  right  Justified  and  the  remaining 
spaces  designated  by  w  are  filled  in  with  blanks. 

A  Specification 

The  Aw  specification  is  one  of  the  editing  codes 
used  to  process  alphameric  data.  This  specification  causes 
w  BCD  characters  to  be  transmitted  to  or  from  a  variable  or 
an  array  name.  Since  this  information  can  be  referred  to 
by  name,  it  can  be  processed  or  modified  by  the  program. 

The  data  is  right  Justified  in  the  specified  field. 

When  the  Aw  editing  code  is  used,  six  bit  alpha¬ 
meric  character  codes  are  used  for  internal  representation. 
A  single  variable  may  contain  up  to  six  alphameric  charac¬ 
ters. 

For  example,  if  a  variable  named  Y  is  declared; 
and  the  format  specification 

FORMAT  (A6) 
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ia  associated  with  a  list  in  which  the  variable  Y  appears, 
this  format  statement  could  be  used  to  oontrol  the  trans¬ 
mission  of  alphameric  data  with  6  or  less  characters  such 
ass 

REPORT 
TIME 
HOURS 
B  - 

Alphameric  information  with  more  than  six  oharaoters  can 
be  contained  in  an  array. 

H  Specification 

The  H  specification  is  also  used  in  conjunction 
with  alphameric  information.  Alphameric  data  associated 

i 

with  the  specification  wH  is  generally  used  for  header  or 
fixed  alphameric  fields  and  oannot  be  manipulated  by  the 
program.  The  editing  code  wH  must  be  followed  by  w  alpha¬ 
meric  characters.  Blanks  appearing  in  the  w  characters 
following  the  editing  code  wH  are  counted  as  characters. 

For  example: 

38HbTHISbISbANbEXAMPLEbOFbALPHAMERICbDATA 

If  the  H  editing  oode  is  used  with  an  input 
statement,  w  oharaoters  are  extracted  from  the  input  record 
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and  replace  the  w  characters  Included  with  the  format  spec¬ 
ification.  On  the  other  hand.  If  the  H  editing  code  is  used 
with  an  output  statement,  the  w  characters  following  the 
specification  (or  the  characters  which  replaced  them  as  a 
result  of  Input  operations)  are  written  as  part  of  the  out¬ 
put  record. 

For  example.  If  an  output  statement  refers  to  the 
following  format  specification: 

FORMAT ( 17HDAY/NlGHTbR0UTINE ) 
the  output  would  appear  as: 

DAY/NIGHT  ROUTINE 

However,  If  an  Input  statement  whose  list  Is 
"AIRCRAFT"  is  used  to  read  the  following  information: 

bPLANESbb25 

and  the  Input  statement  Is  associated  with  a  format  state¬ 
ment  such  as: 

FORMAT (7HB0MBERS 14 ) 

a  subsequent  output  command  whose  list  is  also  "AIRCRAFT" 
associated  with  the  same  format  statement  would  produce  the 
following  output: 


bPLANESbb25 
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X  Specification 


The  X  specification  is  used  to  enter  blank  charac 
ters  in  an  output  record  or  to  skip  characters  in  an  input 
record.  The  editing  code  is  wX  where  w  is  the  number  of 
blank  characters  to  be  inserted  or  the  number  of  characters 
to  be  ignored. 

For  example,  if  an  input  record  contains  two  4 
digit  fields  for  integers  and  it  is  desired  to  read  only 
the  second  quantity,  the  first  field  oould  be  skipped  by 
using  the  statement 


F0RMAT(4X4I) 

in  conjunction  with  the  input  statement.  Or,  the  statement 
F0RMAT(3XF4.2)  oould  produo e  the  output  bbb0.75. 

Repetition  of  Editing  Codes 

If  two  or  more  successive  elements  in  an  input- 
output  list  are  to  be  edited  in  the  same  manner,  and  these 
elements  are  contained  in  a  single  record,  the  editing  code 
to  be  repeated  may  be  written  only  onoe  if  the  editing  code 
is  prefixed  by  an  unsigned  Integer  oonstant  to  lndloate  the 
number  of  repetitions  desired. 
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For  example.  If  a  single  record  contained  three 
successive  Integer  Items,  each  of  whioh  contained  10  char¬ 
acters,  the  format  statement  could  be  written  as: 

FORMAT  (3  HO) 

Instead  of : 

FORMAT (110,  110,  110) 

NOTE:  It  Is  not  possible  to  repeat  the  wH  or  wX  specifica¬ 
tions  by  this  method. 

Repetition  of  Groups  of  Editing  Codes 

If  two  or  more  successive  groups  of  elements  in 
an  Input-output  list  are  to  be  edited  In  the  same  manner, 
and  these  elements  are  contained  In  a  single  record,  the 
group  of  editing  codes  to  be  repeated  may  be  written  only 
once  if  the  group  is  enclosed  In  parentheses  and  then  pre¬ 
fixed  by  an  unsigned  integer  constant  to  Indicate  the  num¬ 
ber  of  times  repetition  of  the  group  Is  desired. 

For  example.  If  a  single  record  consists  of  seven 
successive  fields  which  appear  In  the  following  sequence: 

1.  fixed  point  decimal  number 

2.  subscripted  object  element 

3.  fixed  point  decimal  number 

4.  subscripted  object  element 
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5.  integer  number 

6.  integer  number 

7.  integer  number 

the  format  statement  could  be  written  as: 

FORMAT ( 2 (F6. 2,  J11.3),  314) 

instead  of: 

F0RMAT(F6.2,  J11.3,  F6.2,  J11.3,  14,  14,  14 ) 

NOTE:  An  additional  level  of  parentheses  is  not  permitted. 

The  FORMAT  Specification  Scan 

When  an  input-output  statement  is  executed,  control 
switches  back  and  forth  between  the  input-output  list  and  the 
FORMAT  specification.  Scanning  of  the  FORMAT  statement  occurs 
from  left  to  right.  Successive  items  in  the  input-output  list 
are  transmitted  and  edited  by  successive  corresponding  speci¬ 
fications  in  the  FORMAT  statement  until  all  items  in  the  list 
are  transmitted  and  edited. 

If  the  input-output  list  contains  more  items  than 
there  are  corresponding  specifications  in  the  FORMAT  statement 
the  scan  is  resumed  beginning  with  the  preceding  left  parenthe 
ses  of  the  FORMAT  statement. 
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For  example,  if  an  input-output  statement  has  the 


following  list: 


A,  B,  C,  D,  E,  F,  G,  H 

and  it  refers  to  the  FORMAT  statement: 

F0RMAT(l6,  J8. 3,  L4) 

then  the  variables  in  the  list  will  be  converted  as  follows: 

A  16 

B  J8. 3 

C  L4 

D  l6 

E  J8.3 

F  L4 

G  16 

H  J8. 3 

Multiple  Record  Format  Specification 

It  is  possible  for  one  FORMAT  statement  to  contain 
editing  instructions  for  more  than  one  record.  If  a  group 
of  editing  codes  is  followed  by  a  slash  (/),  the  editing 
codes  following  the  slash  are  used  to  edit  the  next  record. 

A  slash  also  permits  the  object  program  to  ignore  n  records 
on  input  or  to  transmit  n  blank  records  on  output  simply  by 
writing  n  +  1  consecutive  slashes. 


Pop  example.  If  the  following  FORMAT  statement: 


FORMAT (3F1 1.3#  I7/2F10.4,  13) 

Is  used  with  an  Input  statement,  each  Input  command  oould 
oause  the  transmission  of  two  records  If  the  associated 
Input-output  list  consists  of  seven  variables.  The  first 
three  Items  of  the  first  record  would  be  Interpreted  as 
fixed  point  decimal  numbers  and  the  fourth  as  an  Integer. 

The  slash  causes  the  next  record  to  be  read,  with  the  first 
two  Items  Interpreted  as  fixed  point  decimals  and  the  third 
as  an  Integer.  If  there  are  Items  on  the  Input  record  fol¬ 
lowing  those  converted  by  codes  17  or  13,  they  would  be  Ig¬ 
nored  . 

If  the  same  FORMAT  statement  Is  used  with  an 
output  statement,  each  output  command  would  cause  the  trans¬ 
mission  of  two  records.  This  would  consequently  result  In 
two  lines  of  print,  the  slash  Indicating  the  beginning  of  a 
new  line. 

NOTE:  If  this  statement  Is  used  with  an  Input-output  list 
consisting  of  less  than  five  variables,  only  one 
record  would  be  transmitted. 

The  statement: 

FORMAT (3FH. 3,  I7/////2F  10.4,  13 ) 
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used  with  an  Input  statement,  would  cause  six  records  to  be 
read.  However,  only  the  first  and  last  would  be  processed; 
the  remaining  four  records  would  be  Ignored. 

If  used  with  an  output  statement,  four  blank 
records  would  be  written  between  the  first  record  which  con¬ 
tains  data  and  the  last.  If  the  record  were  printed,  four 
lines  would  be  skipped  before  the  second  line  were  printed. 


Relationship  between  Input-Output  List  and  Format  Statement 

As  shown  above,  the  Input-output  list  specifies 
the  location  In  computer  storage  that  data  Is  to  be  placed 
(for  Input)  or  obtained  (for  output).  Whereas,  the  FORMAT 
statement  In  addition  to  Its  conversion  function,  specifies 
where  the  data  is  looated  on  the  input  record  or  where  It 
is  to  be  placed  on  the  output  record. 

For  example.  If  It  Is  desired  to  read  the  following 

data : 

12 

475 

-122 

1 

67.001 

0.67*5 

-124.012 

under  control  of  an  Input-output  list  such  as: 
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A,  B,  C,  D,  E,  F,  0 


which  Is  associated  with  FORMAT  statement: 

FORMAT(4l4,  3F9.3) 

the  fields  of  data  must  be  right  Justified  In  each  field 
on  the  Input  record  as  follows: 

bbl2  b475  -122  bbbl  bbb67.001  bbbO.675  b-124.012 

14  14  i4  14  F9.3  F9.3  P9.3 

The  variables  In  the  Input-output  list  would  be 
edited  according  to  the  conversion  oode  specified,  as  follows 


Variable 

Conversion  Code 

Value  Assumed 

A 

14 

12 

B 

14 

475 

C 

14 

-122 

D 

14 

1 

E 

F9.3 

67.001 

F 

F9.3 

0.675 

0 

F9.3 

-124.012 

Scale  Factors 

MILITRAN  allows  the  application  of  a  scale  factor 
to  the  E  and  F  type  conversion  codes.  The  scale  faotor  Is 
indicated  by  prefixing  the  editing  code  with  a  signed  integer 
constant  followed  by  the  letter  P.  The  aotlon  of  the  scale 
faotor  Is  such  that: 
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External  Representation 


Internal  Representation  X10^cale  Factor 
The  use  of  a  scale  factor  with  an  P  type  editing 

P 

code  causes  the  output  values  to  be  multiplied  by  10  before 
output. 


For  example: 

FORMAT (1P3P11. 3)  might  give 

bbb -806 . 540bbbbb -0 . 686bbbbbb6 . 636 

FORMAT (-1P3FH. 3)  would  give 

bbbbb-8. 065bbbbb-0. 007bbbbbb0. 066 

The  use  of  a  scale  factor  with  an  E  type  editing 
code  causes  the  mantissas  of  the  output  values  to  be  multi- 

P 

piled  by  10  and  the  exponents  to  be  decreased  by  P.  Thus : 

FORMAT (1P3E11. 3)  Would  give 

b -8 . 065Eb01b-6 . 860E-02bb6 . 636E-OI 

Once  a  value  has  been  given  for  a  scale  factor 
within  a  FORMAT  statement.  It  will  be  applied  to  all  values 
edited  by  succeeding  E  and  F  type  editing  codes  within  the 
same  FORMAT  statement.  This  Is  true  for  both  single-record 
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and  multiple -record  FORMAT  statements.  To  terminate  the 
effect  of  a  scale  factor  within  a  specif io  FORMAT  state¬ 
ment,  a  subsequent  scale  factor  of  0  must  be  given.  Scale 
factors  have  no  effect  on  I  type  editing  codes, 

4,  READ 

Hie  READ  statement  is  written  as  follows: 

READ  (t,s)  List 

where  t  designates  an  I/O  unit,  s  is  the  statement  label 
of  a  FORMAT  statement,  and  List  is  an  input-output  list 
of  the  quantities  to  be  transmitted. 

Hie  READ  statement  causes  the  object  program  to 
read  BCD  information  from  I/O  unit  t  into  the  locations 
specified  by  the  List,  under  control  of  the  FORMAT  state¬ 
ment  specified  by  s.  If  t  is  designated  as  CARDS,  data 
will  be  read  on-line  from  the  card  reader. 

Examples : 

READ  (4,A100)  A,  B,  C,  D,  E 

READ  (INPUT,  FORMA T1 )  DISTANCE,  SPEED 

READ  (CARDS,  FORMA T2)  TIME 

5.  WRITE 

The  WRITE  statement  is  written  as  follows: 

WRITE  ( t , s  )  List 
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where  t  designates  an  I/O  unit,  s  Is  the  statement  label 
of  a  FORMAT  statement,  and  List  Is  an  Input-output  list 
of  the  quantities  to  be  transmitted. 

Hie  WRITE  statement  causes  the  object  program  to 
write  BCD  Information  on  unit  t,  from  the  locations  specified 
by  the  List,  under  control  of  the  FORMAT  statement  specified 
by  s.  If  t  Is  designated  as  CARDS,  the  Items  In  the  list 
will  be  punched  on  the  on-line  card  punch.  If  t  Is  designated 
as  PRINTER,  the  Items  In  the  list  will  be  printed  on  the  on¬ 
line  printer. 

Examples : 

WRITE  (1,EDIT)  ( (A(I) )  UNTIL  I.G.  10,  I  «  1,1) 

WRITE  (OUTPUT,  CONVERT)  TARGET,  RANGE  (3,4) 

WRITE  (CARDS,  F0RMAT1 )  A,  B,  C,  D 
WRITE  (PRINTER,  F0RMAT2 )  A,  B,  C,  D 

6.  READWRITE 

The  form  of  the  READWRITE  statement  is: 

READWRITE  (t^,  8^,  tg,  8g)  List 

where  t^  and  tg  designate  I/O  units,  s^  and  Sg  are  the  state- 

ment  labels  of  FORMAT  statements,  and  List  is  an  input-output 
list  of  the  quantities  to  be  transmitted. 
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The  READWRITE  statement  causes  the  object  program 
to  read  BCD  information  from  unit  t^  Into  the  locations  speci¬ 
fied  by  -the  List  under  oontrol  of  the  FORMAT  statement  speci¬ 
fied  by  s^  and  then  to  immediately  write  the  same  information 
on  I/O  unit  tg  under  the  oontrol  of  the  FORMAT  statement  speci¬ 
fied  by  Sg,  t^  may  be  designated  as  CARDS,  tg  may  be  desig¬ 
nated  as  CARDS  or  PRINTER, 

Example? 

REAEWRITE  ( IN, F0RM1 , OUT, F0RM2 )(J,((E(I,J)) UNTIL  I .G.2, 1=1, l) ) 
READWRITE  (CARDS , F0RM1 , PRINTER, F0RM2 ) PRESSURE, D 

7.  BINARY  READ 

BINARY  READ  is  written  as  follows: 

BINARY  READ  (t)  List 

where  t  is  an  arithmetic  expression  designating  a  tape  unit 
and  List  is  the  input-output  list  of  the  quantities  to  be 
transmitted. 

The  BINARY  READ  statement  causes  the  object  program 
to  read  binary  information  from  the  tape  unit  specified  by  t 
into  the  locations  specified  by  List. 

Examples : 

BINARYREAD(4)  VELOCITY 
BINARYREAD(BIN)  LONG,  LAT 
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8.  BINARY  WRITE 


The  form  of  BINARY  WRITE  is: 

BINARY  WRITE  (t)  List 

where  t  is  an  arithmetic  expression  designating  a  tape 
unit  and  List  is  the  input-output  list  of  the  quantities 
to  be  transmitted. 

The  BINARY  WRITE  statement  causes  the  object  pro¬ 
gram  to  write  binary  information  on  the  tape  unit  specified 
by  t  from  the  locations  specified  by  List, 

Examples : 

BINARY  WRITE (B)  VELOCITY 
BINARY  WRITE (BTAPE)  LONG,  LAT 

9.  END  PILE  RETURN 

When  an  end-of-file  is  encountered  on  an  input 
tape,  control  is  passed  to  the  system  monitor  program.  If 
it  is  desired  to  prevent  this,  the  following  statement  may 
be  given: 

END  PILE  RETURN  (s) 

where  s  is  the  label  of  the  statement  to  which  control  is 
to  be  transferred. 
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10.  END  RECORD  RETURN 


If  the  end  of  a  logical  record  Is  encountered 
before  a  BINARY  READ  haa  been  completed  (before  all  the 
elements  In  a  Hat  have  been  transmitted),  the  following 
statement : 

END  RECORD  RETURN  (s) 

will  cause  control  to  be  transferred  to  the  statement 
labelled  s. 


11.  TAPE  CONTROL  STATEMENTS 

The  tape  control  statements  are  used  to  position 
magnetic  tapes.  A  component  of  each  of  the  statements  Is 
an  arithmetic  expression  which  designates  the  tape  unit  on 
which  the  specified  operation  Is  to  be  performed.  Usually, 
this  expression  would  take  the  form  of  an  Integer  constant 
or  an  Integer  variable.  However,  If  floating  point  quanti¬ 
ties  are  specified,  the  expression  will  be  truncated  to  an 
Integer  value  before  use. 


BACKSPACE 


BACKSPACE(t) 


where  t  Is  an  arithmetic  expression,  causes  the  object  pro¬ 
gram  to  position  the  tape  mounted  on  tape  unit  t  at  the 
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beginning  of  the  record  last  read  or  written.  For  BCD 
tapes,  the  tape  Is  moved  backward  one  physical  record; 
for  binary  tapes.  It  Is  moved  one  logical  record. 


BACKSPACE  FILE 

BACKSPACE  FILE  (t) 

where  t  Is  an  arithmetic  expression,  causes  the  object 
program  to  move  the  tap£  mounted  on  tape  unit  t  backward 
until  an  end-of-flle  record  or  the  load  point  Is  encoun¬ 
tered. 


END  FILE 


END  FILE  (t) 


where  t  Is  an  arithmetic  expression,  causes  the  object 
program  to  write  an  end-of-flle  mark  on  the  tape  mounted 
on  tape  unit  t. 


REWIND 


REWIND  (t) 


where  t  Is  an  arithmetic  expression,  causes  the  object 
program  to  rewind  to  the  load  point  the  tape  mounted  on 
tape  unit  t. 
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UNLOAD 


UNLOAD  (t) 


where  t  Is  an  arlthmetlo  expression,  oauses  the  object 
program  to  rewind  and  put  the  tape  mounted  on  tape  unit 
t  Into  an  automatic  unload  status. 
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APPENDIX 


Environment  Declarations 

REAL  n^i^lg,...,^) . nm(l1,l2 . 1,) 

INTEGER  n1(l1,l2,...,lk),...,nm(l1,l2,...,lJ) 
LOGICAL  n1(l1,l2,...,lk),...,nm(l1,l2,...,lJ) 
OBJECT  n1(l1),n2(l2),...,nm(lm) 

PROGRAM  OBJECT  n1(l1,ig,  .  .  *,\),  .  .  •»i\b(1i'12’ 
CLASS  (c)  CONTAINS  a^,a2,...,am 
NORMAL  MODE  (a1#a2, . . .  ,ak)  ,1112  (b1#b2, . . . , br ) 
VECTOR  N  ( (a1#a2, . .  ,,a1 )  ,d1,d2, . .  .,<3^^) 

COMMON  n1«n2#>,,#n1 


Arithmetic 

A  -  B 


Logical 

A  -  B 


Control  Statements 

GO  TO  s 
PAUSE  J 
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STOP 

IP  (b)  st,si, 

UNLESS  (b)  sf#st 

DO  (s)  UNTIL  ti,  n  -  e^e.^ 

DO  (a)  POR  a.IN.b 
CONTINUE 


List  Processing  Statements 

LIST  n((o1,C2,...,e1),d) 

LENGTH  (n) 

RESET  LENGTH  (n)  to  p 
PLACE  (ei»e2> . . . )  IN  n 

REMOVE  ENTRY  n(k) 

PLACE  ENTRY  m(j)  IN  n 

REPLACE  ENTRY  n(k)  BY  (e^ e2, . . . ,e1 ) 

REPLACE  ENTRY  n(k)  BY  ENTRY  m(j) 

REMOVE  (b1#b2, . . .,b1)  FROM  n 

REPLACE  (b1#b2, . , .  ,bA)  BY  (e^eg, . .  .,e1)  IN  n 

REPLACE  (b1#b2, ...,b1)  BY  ENTRY  m(j)  IN  n 

MINIMUM  INDEX  (nfb^bg, . . . ,bj ) , s ) 

RANDOM  INDEX  (n(b,,b2, . . . ,bj ) , S ) 

RANDOM  INDEX  (nfb^bg, . . .  ,b4 ,bx) , s ) 

LST 

GST 
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Event  Statements 


PERMANANT  EV2nT  N( (a1,ag, . . . ,aA) ,d) 
CONTINGENT  EVENT  N(  (a^Sg,  •  •  •  »a1)  ,d) 
NEXT  EVENT 

NEXT  EVENT  (n^rig, . .  .^nj) 

NEXT  EVENT  EXCEPT  (n^ng, . . . ,n1) 

END 

END  CONTINGENT  EVENTS  (s) 


Procedure  Statements 

PROCEDURE  n 

PROCEDURE  n(a1,a2, . . ,,an) 
EXECUTE  n 

EXECUTE  n  (a1#a2, . . . ,an) 

RETURN 
RETURN  a 

Input-Output  Statements 

FORMAT  (Format  Specification) 
READ  (t,a)  List 
WRITE  (t,s)  List 
READWRITE  ( t-, S1,tg,»2)  List 

BINARY  READ  (t)  List 
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BINARY  WRITE  (t)  List 
END  PILE  RETURN  (s) 
END  RECORD  RETURN  (s) 
BACKSPACE  (t) 
BACKSPACE  PILE  (t) 

END  PILE  (t) 

REWIND  (t) 

UNLOAD  (t) 
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INDEX 


Abbreviations  permitted  in  conditional  list  processing 
statements  132,  133#  134 
A  Conversion  168,  169 
ABS  71#  72,  150 
Addition  (+)  15#  71 

.AND.  15#  76 
Arguments 

in  COMMON  storage  63 
In  library  functions  148 
In  open  functions  149 
In  procedures  146,  147 
Arithmetic  Arrays  30-35 
Arithmetic  Constants  25-27 
Arithmetic  Expressions  70-75 
modes  74,  75,  80,  8l 
relational  79-82 
Arithmetic  Operators  15,  69-75 
Arithmetic  Statements  92-94 
Arithmetic  Subscripts 
form  32,  33 

Arithmetic  Subscripted  Variables 
form  33 

Arithmetic  Variables 

rules  for  naming  16,  17 
Array  Declarations 
INTEGER  34,  35 
LOGICAL  38,  39 
PROGRAM  OBJECT  41,  42,  43 
REAL  34,  35 
AT AN  149 

ATTACKER  I38,  139 
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BACKSPACE  183,  184 
BACKSPACE  PILE  184 
BINARY  READ  l8l 
BINARY  WRITE  182 

Cards 

READ  179 
READWRITE  l8l 
WRITE  165,  180 
CLASS  43-53 
Coding  Form  20 
Comments  21 
COMMON  62-64 

Conditional  List  Processing  Statements  123-134 
Constants 

Arithmetic  25-27 
Integer  25*  26 
Hollerith  22,  23 
Logical  23,  24 
Real  26,  27 
CONTINGENT  EVENT  137 
CONTINGENT  EVENT  Components 
ATTACKER  I38 
INDEX  138 
TARGET  138 
TIME  138 

CONTINUE  111,  112 
COS  148 


Dimensions 

of  a  CONTINGENT  EVENT  list  137 
of  an  INTEGER  array  34,  35 
of  a  LIST  113,  114 
of  a  LOGICAL  array  38,  39 
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of  an  OBJECT  40,  65 
Of  a  PERMANENT  EVENT  LIST  136 
of  a  PROGRAM  OBJECT  array  42 
of  a  REAL  array  34,  35 
of  a  VECTOR  57 

specified  by  object  elements  65,  66 
symbolic  35,  36 
Division  (/)  15,  71 

DO  Statement 
Form  1 

increment  106 
index  105 
initial  value  106 
range  105 
statement  102 
terminating  condition  91 

Form  2 

statement  107 
restrictions  109,  HO 

.E.  15,  79,  80 

EACH*  48-53 
E  Conversion  163,  164 
Editing  Codes 

repetition  171,  172 
repetition  of  groups  172,  173 
END  143 

END  CONTINGENT  EVENTS  143,  144 

END  FILE  184 

END  FILE  RETURN  182 

END  RECORD  RETURN  183 

EPSILON  150 

.EQV.  16,  76,  77 
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EXECUTE  147 
.EXOR.  16,  76,  77 
EXP  149 
Exponent  27 
Expressions 

Arithmetic  70-75 

modes  74,  75,  80 
relational  79 
Logioal  75-80 
Objeot  83,  84 

F  Conversion  16I-I63 
FORMAT  159,  160 
Format  Specification  Scan  173 
Functions 

library  148,  149 
open  149,  150 

.0.  15,  79,  80 

.OE.  15,  79,  80 
GO  TO  97,  98 
GST  132 

H  Conversion  169,  170 
Hollerith  Constants  36,  37 

I  Conversion  160,  161 
IF  99,  100 
INDEX  14 1 

Input  -  Output  Lists  152-159 

.IN.  15,  83-90 

INTEGER 

Array  36 
Calculations  24 
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Constants  25,  26 
Function  150 
Variables  29 
.IS.  15,  90,  91,  92 

J  Conversion  165-167 

.L.  15,  79,  80 

.LE.  15,  79,  80 
L  Conversion  167,  168 
LENGTH  118 

Library  Functions  148,  149 
List 

CONTINGENT  EVENT  list  137,  138,  139 
entries  116 
Input  -  output  152-159 
length  of  LIST  116 
LIST  declaration  113,  114 
PERMANENT  EVENT  list  136,  137 
LOG  148 
LOGICAL 

Arrays  38,  39 
Constants  37,  38 
Expressions  75-80 
Operators  76-78 
Statements  94-96 
Variables  38 
LST  131,  132 

MAX  150 
MIN  150 

MINIMUM  INDEX  129,  130 
MOD  150 
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Modes 

of  arithmetic  expressions  74 ,  75 
of  arithmetic  relational  expressions  80,  8l 
of  vectors  59-62 

of  veotors  used  in  arithmetic  statements  93 
Modifications  of  NEXT  EVENT  142,  143 
Multiple  Record  Format  Specification  174-176 
Multiplication  (*)  15,  71 

.NE.  15,  79,  80 
NEXT  EVENT  140-142 
NEXT  EVENT  EXCEPT  142-143 
NORMAL  MODE  54-57 
.NOT.  15,  76-78 

0  Conversion  164 
Objects 

OBJECT  declaration  40 
PROGRAM  OBJECT  41-43 
rules  for  naming  39 
used  as  dimensions  64-66 
used  as  subscripts  67-68 
Open  Function  149-150 
Operators 

Arithmetic  69-75 
Logical  76-78 
Object  relational  79,  80 
.OR.  15,  76-78 

,P.  15,  69-74 

PAUSE  98-99 
PLACE  120-121 
PLACE  ENTRY  122 
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PERMANENT  EVENT  135,  136 
PRINTER 

READWRITE  181 
WRITE  180 
PROCEDURE  143,  144 
PROGRAM  OBJECT  41-43 

RANDOM  149 

RANDOM  INDEX  130,  131 

READ  179 

READWRITE  180,  181 
REAL 

Arrays  35 
Calculations  25 
Constants  26,  27 
Function  150 
Variables  29,  30 
REMOVE  126-128 
REMOVE  ENTRY  121 
REPLACE  128 
REPLACE  BY  ENTRY  129 
REPLACE  ENTRY  122 
REPLACE  ENTRY  BY  ENTRY  123 
RESET  LENGTH  118,  119 
RETURN  148 
REWIND  184 


Scale  Factors  177-179 

Sequence  of  EVENT  Processing  140-142 

SIGN  150 

SIN  148 

Statement  Labels  20 
STOP  99 
SORT  149 
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Subscripts 

form  of  arithmetic  32,  33 
speolfled  by  object  elements  67,  68 
Subtraction  (-)  15,  71 

Symbolic  Dimensions  3k,  35 

TAN  148 

Tape  Control  Statements  183-185 
TARGET  138,  139 
TIME  138,  139 

UNLOAD  185 
UNLESS  101,  102 

Variables 

Arithmetic  -  rules  for  naming  16,  17 
Integer  29 
Logical  38 
Program  Object  41-43 
Real  29,  30 
Vectors 

declaration  57-62 

modes  59-62 

retrieval  forms  57-59 

used  In  arithmetic  statements  93 

WRITE  179,  180 

X  Conversion  171 
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